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La lunghezza dei programmi 

Volendo ordinare in maniera organica i 
miei programmi su cassetta, vorrei indi- 
care accanto al nome di ogni programma 
la sua lunghezza in byte . Dato che la 
funzione FRE mi fornisce a volte valori 
addirittura negativi , credo che non sia 
molto affidabile. Potete indicare un me- 
todo diverso per conoscere I’ esatta occu- 
pazione di memoria di un programma ? 

P. Boncompagni 

R. Effettivamente il valore fornito dalla 
funzione FRE(O) è tutt’altro che preciso: 
per avere il valore esatto della memoria 
occupata da un programma, sia con il 
C16 e Plus/4 che con il VIC 20, bisogna 
invece digitare: 

PRINT2+FRE(0)-(FRE(0) < 0)*65536 

Il valore che verrà visualizzato tiene an- 
che conto dello spazio in memoria even- 
tualmente occupato da variabili, matrici 
e vettori. 

Se si desidera invece conoscere la quan- 
tità di memoria occupata unicamente 
dalle istruzioni di un programma, al net- 
to cioè di variabili, matrici e vettori, è 
necessario ricorrere ai puntatori nelle 
locazioni 43, 44, 45 e 46. Le locazioni 
43 e 44 contengono (nella forma byte 
basso-byte alto) la locazione più bassa 
usata dal BASIC, mentre le locazioni 45 
e 46 contengono (nello stesso formato) 
la locazione di inizio delle variabili. 
L’esatta quantità di memoria occupata 
dalle istruzioni di un programma (cioè 
dal “listato”) è fornita da: 

PRINT(PEEK(45)+PEEK(46)*256)- 

(PEEK(43)+PEEK(44)*256)-2 

Il numero 2 in entrambe le istruzioni 
serve per compensare la quantità di 
memoria, appunto di 2 byte, occupata 
dall’istruzione stessa. 


Speedscript per CI 6? 

Avete pubblicato sul numero di Ottobre 
1985 due utilissimi programmi per VIC 
20, cioè “Speedscript 3.0“ e “ Relfiling 
System 1.0”: perché non ne avete fatto 
anche una versione per CI 6, mentre 
l'avete fatta per il C64 ? Dal momento 
che non esistono in commercio altri pro- 
grammi “seri di word processing e di ar- 
chivio per il C16 , speravo che avreste 
potuto sopperire voi stessi a questa ca- 
renza nel mercato del software per que 
sto computer. 

P. Bonafede 

R. Le versioni per CI 6 di questi pro- 
grammi in realtà esistono, ma essendo 
comprese nel libro con cassetta “Lavo- 
riamo con il Commodore 16”, pubblica- 
to dal Gruppo Editoriale Jackson, ov- 
viamente non ci è possibile pubblicarle 
sulla rivista. Il libro cerca appunto di 
sopperire alla carenza di software “se- 
rio” per il C16, e comprende un word- 
processor in linguaggio macchina - “Ea- 
syWord” - dotato delle stesse prestazio- 
ni di SpeedScript 3.0, oltre a due data- 
base - “Relfiling System” e “Seqfiling 
System” - e a uno spreadsheet - “Multi- 
Calc” - inedito anche per i lettori “ses- 
santaquattristi” della nostra rivista. 

Trncchetti con il drive 

Se cerco di caricare da disco un file SEQ, 
ottengo sempre un messaggio “FILE 
NOT FOUND”, anche se il file è lì visibi- 
lissimo sulla directory. E il drive che non 
funziona o sono io che sbaglio qualcosa 
nel caricamento? 

G. Fossati 

R. I file sequenziali (SEQ) non si posso- 
no caricare come i programmi (PRG), 
ma richiedono una particolare procedu- 
ra per essere letti dal computer. Questo 


programmino visualizza su video il con- 
tenuto di qualsiasi file sequenziale pre- 
sente sul disco: 

Ì0 INPUT"NOME FILE SEQ" ; F$ 
20 OPEN3,8,3,F$ 

30 GET#3,A$:PRINTA$; 

40 IF ST-64THENCLOSE3 :END 
50 GOTO 30 

Una particolarità interessante e poco 
conosciuta nel formato delle istruzioni 
LOAD e SAVE permette a questo pro- 
posito di realizzare una forma elementa- 
re di protezione dei propri programmi 
su disco. Se infatti si salva un program- 
ma con SAVE“TEST, S”,8 esso appari- 
rà sulla directory come SEQ, ed ogni 
tentativo di caricarlo con LOAD- 
“TEST”,8 darà invariabilmente il mes- 
saggio “FILE NOT FOUND”. Se invece 
si usa la forma LOAD“TEST,S”,8 il 
programma verrà normalmente carica- 
to in memoria e potrà essere mandato 
in esecuzione. 
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Piccola guida per 

l’input 

dei programmi 


mg olti dei programmi listati da SUPERCOMMODO- 
ITIrE contengono particolari caratteri di controllo 
(controllo cursore, tasti colore, video-inverse, ecc.). 
Per rendere chiaro ciò che dev’essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente i listati contengono delle «parole» racchiu- 
se tra parentesi graffe { }; tali parole rappresentano 
particolari caratteri di controllo: { GIUJ significa premere 
il simbolo del cursore verso il basso. { 5 SPAZI} vuol dire 
battere 5 volte la barra-spazio. 

Per indicare che un tasto dev’essere «shiftato», cioè 
premuto insieme al tasto SHIFT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev’essere premuto il tasto 
S mentre è abbassato il tasto SHIFT. 

La manovra farà apparire sullo schermo un piccolo 
«cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esempio jlO N}) dovrà essere interpretato co- 
me «premere il carattere indicato per il numero di volte 
che lo precede nelle parentesi»: nel nostro esempio 
premere 10 volte il tasto N «shiftato». 

Se il tasto da premere è indicato tra le parentesi [()]> 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore» (il tasto «Commodo- 
re» è quello posto nell’angolo in basso a sinistra). 

Se il tasto scritto tra [ () ] è preceduto da un numero, 
ciò significa che il tasto dev’essere premuto per il nu- 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico 
solitario racchiuso tra parentesi graffe. Tale carat- 
tere può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio { A } sta ad indicare la sequenza CTRL-A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur- 
sore durante l’esecuzione del programma. È per que- 
sto motivo che nei programmi si troveranno dei { SIN }, 
{HOME} e {BLU}! 

L’unico modo perché il calcolatore distingua il coman- 
do diretto da quello inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore si predispone appunto in «modo virgo- 
lette». 

Battendo un carattere qualsiasi, cercando poi di cor- 
reggerlo muovendo il cursore, si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti il simbolo del cursore a sinistra nel «modo virgolette». 
L’unico comando di editing non utilizzabile all’interno 
di un programma è il DEL. Battendo nuovamente le 
«virgolette» il calcolatore lascia il «modo virgolette». Si 
può accedere al «modo virgolette» quando inserite spa- 
zi nella linea. 

In ogni caso, il sistema più semplice per uscire dal 
«modo virgolette» è quello di premere il tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: Premete: Vedrete: Quando leggete: Premete: Vedrete: Quando leggete: Premete: Vedrete: 


{CLR } 

{ HOME } 
{SU} 
{GIU ' } 
{SIN} 
fDES} 

{ RVS } 
{OFF} 

{ BLK } 
{WHT } 
{RED} 


SHIFT ■ CLR/ HOMI 


Espici 







[ SHIFT 

II 

lì CRSR U] 




CTRL 


CTRL 


CTRL 





G 





m 

■■BH 

<=CRSR =* 

■ 








{CYN } 
{PUR} 
{GRN } 
{BLU} 
{ YEL } 
[< 1 >] 

[ < 2 > ] 

[< 3 > ] 
[ < 4 > ] 
[ < 5 > ] 
[< 6 >] 


CTRL 


CTRL 


CTRL 


CTRL 


CTRL 


□ 

□ 

a 

a 

a 

a 




□ 









■i 


E < 7 > } 
{ < 8 > ] 

{FI} 

{ F2 } 

{ F3 } 
{F4 } 

{ F5 } 

{ F6 } 

{ F7 } 

{ F8 } 


□ 


a 
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Ritaglia ed invia a J .soft 

Viale Restelli, 5 
20124 Milano 


Ordino il seguente software per il VIC 20 


end. 

cod. 

end 

cod. 

. _ cod. 

cod 

cod. 

cod. 

• - - cod 


per un totale di L. + L. 2.500 per contributo fisso di spese di spedizione. 

Scelgo la seguente modalità di pagamento: □ pagherò in contrassegno al postino 

□ allego assegno (o contanti) 

□ verso l'importo sul C.C.P. n. 19445204 
intestato a J .soft (allego ricevuta) 

Nome 

Cognome 

Via n. 


C.A.P. 


Città 


Prov. 







10 PRINT" {CLR} ATTENDERE PREGO..." 

1 1 PORI = 886TOl 0 1 8 : READA:CK=CK+A: POKEI ,A: N 
EXT 

12 IF CKOl 7539 THEN PRINT" {GIU * }ERRORE N 
ELLE ISTRUZIONI DATA": END 

13 SYS886:PRINT" {CLR} { 2 GIU'JOK-LIST ATT 
I VATO . " : NEW 

14 DATA173, 036, 003, 201 ,150,208 

15 DATA001 ,096,141 ,151 ,003,173 

16 DATA037, 003, 141 ,152,003,169 

17 DATA150, 141 ,036,003,169,003 

18 DATA141 ,037,003,169,000,133 

19 DATA254 , 096 , 032 ,087 , 241 ,133 

20 DATA251 ,134,252,1 32,253,008 

21 DATA201 ,013,240,017,201 ,032 

22 DATA240, 005, 024, 101 ,254,133 

23 DATA254 ,165,251 ,166,252^164 

24 DATA253 ,040, 096, 1 69,013,032 

25 DATA21 0,255,165,214,141 ,251 

26 DATA003, 206, 251 ,003,169,000 

27 DATAI 33,216,169,019,032,210 

28 DATA255 , 169,018,032,210,255 

29 DATAI 69,058,032,210,255,166 

30 DATA254, 1 69,000,133,254,172 

31 DATA151 ,003,192,087,208,006 

32 DATA032,205,1 89,076,235,003 

33 DATA032, 205, 221 ,169,032,032 

34 DATA21 0,255, 032, 210, 255, 173 

35 DATA251 ,003,133,214,076,173 

36 DATA003 


1 REM LDCCK 

2 REM RENUMBER 


1(5 LET 
EEK 23731 
0(5 LET 
4.0 eo T, 
50 6 5^ 

se ayV 

130 Y//7 
i35 Jyf 

TftB Ir / a 
14.0// / JU 
1501 / *7 

ISSI / 
1B0|\\ \ 
170i\\ 1 


IB0\>\ 

190 VXS 
200 A N 
210 Fb. 
220 REA 
230 POK| 
240 NE 
250 R^ 
250 Ri 
300 O 
,115,3 
, 200 , 2, 

1000 li 
1010 I, 
1020 il 

1030 #1 
1040/1 

1080 # J 
106* J 

107# J 


IVati 

f» 42, 53, 92, 17,0,0 , 114 , 35 
fMb ,35,70,35,9,126,254,64 
Msé, 0,6, 25, 235, 225, 24, 23 

f t * ■ 0 123456769RBCDEF 
W b$B"“ 

K 1-1 TO'* STEP >1 
r b«INT (d/’ietk) 

T bf=b«fC| (b + 1) 

T d*d * 

XT il 
TURN 




OK-LIST 


tenzione a non 'commettere errori (per 
fortuna il listato è molto breve!). Dopo 
aver finito salvalo su disco o nastro, per 
lo meno un paio di volte, prima di man- 
darlo in esecuzione con il comando 
RUN, perché il programma BASIC, do- 
po aver memorizzato la routine in lin- 
guaggio macchina (le istruzioni DATA), 
si autocancella. 


SYS 886 
Buon lavoro! 


pappiamo tutti quanto sia difficile di- 
^gitare correttamente un programma 
(ovviamente, se non si dispone della 
cassetta allegata a SUPERCOMMO- 
DORE!). Errori di battitura anche banali 
possono provocare il malfunzionamento 
del programma stesso, o anche il blocco 
completo del sistema, obbligandoci a ri- 
fare il lavoro. 

Ma il punto di forza dei calcolatori è che 
essi eccellono nei compiti noiosi e che 
richiedono precisione. Scoprire un erro- 
re nella battitura di un listato è appunto 
un compito noioso, quindi perché non 
sfruttare il tuo computer per controllare 
Uistati da te digitati? 

E proprio questo lo scopo di OK-LIST, 
il programma che ti permetterà di ri- 
sparmiare tempo e fatica. Annidato al- 
l’interno del tuo computer, OK-LIST 
controlla automaticamente ogni riga 
battuta, mostrandoti un numero in cima 
allo schermo ogni volta che premi il ta- 
sto RETURN. Un numero corrisponden- 
te nel listato del programma pubblicato 
ti permette il confronto, ed uno sguardo 
è sufficiente per avere la conferma di 
aver digitato la linea correttamente. 
OK-LIST è un breve programma in lin- 
guaggio macchina residente nel buffer 
del registratore. Esso rimane in tale zo- 
na finché spegni il computer o usi Funità 
a cassette. 


Come digitare OK-LIST 

Digita il listato che segue, facendo at- 


Come si usa OK-LIST 


A questo punto puoi iniziare a battere 
il tuo primo listato “a prova di errore”. 
Se non hai OK-LIST in memoria, carica- 
lo e attivalo con RUN. 

Digita quindi la prima linea di program- 
ma: come puoi vedere, in fondo ad essa 
c’è la parola “:rem” seguita da un nu- 
mero, che si chiama checksum. 

NON COPIARE QUESTA PARTE 
DELLA LINEA! Ora premi il tasto RE- 
TURN, come al solito. In alto a sinistra 
apparirà il checksum; confrontalo con 
quello che vedi scritto sulla rivista dopo 
“:rem”. Se i due numeri sono uguali, 
vuol dire che la linea è stata digitata 
correttamente, altrimenti controllala, 
perché evidentemente hai commesso 
un errore. Facile, no? 

OK-LIST non è pignolo per quel che 
riguarda gli spazi bianchi, dato che non 
fa caso alla loro presenza. Ciò torna a 
tuo vantaggio, dal momento che la spa- 
ziatura non è, in genere, importante. 
Ma alFinterno delle istruzioni PRINT gli 
spazi spesso si rivelano necessari, quin- 
di presta attenzione quando digiti que- 
sto tipo di istruzione. Un’altra cosa a 
cui devi badare è che usando le forme 
abbreviate dei comandi (ad esempio ? 
per PRINT) il checksum visualizzato 


non coinciderà con quello presente sul 
listato. Ciò è tuttavia risolvibile, pre- 
mendo il tasto RETURN su una linea 
dopo averla listata: le abbreviazioni sa- 
ranno ricodificate nella loro forma inte- 
ra e quindi OK-LIST sarà in grado di 
svolgere perfettamente la sua funzione. 
In questo modo, inoltre, avrai la possibi- 
lità di controllare interi gruppi di righe 
in una volta sola. 

Ovviamente, nessuno è perfetto, ed an- 
che OK-LIST ha qualche limite: se per 
caso ti capitasse (ma è un errore poco 
frequente) di “anagrammare” durante 
la digitazione una linea (per esempio 
invece di battere 10 PRINT W VAI”, digiti 
per errore 10 PRINT“VIA”), OK-LIST 
non se ne accorgerebbe. Inoltre la pre- 
senza del carattere SHIFT-SPAZIO mo- 
difica il numero di checksum rispetto al 
carattere SPAZIO normale, anche se la 
differenza non risulta visibile sul video 
del tuo computer. 

Se intendi sospendere il lavoro di digita- 
zione - o lo hai terminato - puoi salva- 
re su nastro o disco il tuo programma: 
ricordati comunque di premere RUN/ 
STOP e RESTORE prima di dare il co- 
mando SAVE. Al momento di riprende- 
re il lavoro, tuttavia, non potrai più uti- 
lizzare OK-LIST, dal momento che 
qualsiasi operazione su cassetta lo di- 
strugge. 

Se vuoi disabilitare OK-LIST in qualun- 
que momento, senza perdere il tuo pro- 
gramma in memoria, premi RUN/ 
STOP e RESTORE. Per riattivarlo bat- 


Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi per C64 e C128 di interesse generale, chiari 
ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo scopo di rendere 
più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si accresceranno le 
probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 l’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 

3 il titolo dell’articolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

4 le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Sprite Ed.. ./Brambilla/2. 

5 il testo dell’articolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

6 dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso il testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

8 avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell’autore, il titolo 
dell’articolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 
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gerimenti di programmazione si consiglia di usa- 
re le istruzioni “CHR$( x )”, “TAB( x )”, SPC( x 
)”, piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroll di 5 linee l’istruzione 
“FORI = 1T05:PRINT:NEXT”. è molto più in- 
terpretabile di 5 Q inverse; e, invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra- 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

8 dbP er maggior chiarezza, all’interno dell’ar- 
JL ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

^ gli articoli ed i programmi potranno avere 
A JL qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 

€% volendo includere diapositive, queste do- 
JL mt vranno avere formato 24x36, o 6x6. 

^ O non prenderemo in considerazione artico- 
& li che siano stati sottoposti ad altre case 
editrici. 

4 yR verrà data comunicazione scritta solo in 
JL*»caso di accettazione del lavoro. Il materia- 
le non pubblicato non verrà restituito. 

^ E* il compenso per la collaborazione presta- 
JLaJta sarà commisurato alla complessità e 
all’interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300 . 000 ). Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 

Inviate idee e programmi a: 

SUPERCOMMODORE 
Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i contri- 
buti migliori. 

La Redazione 




Il trasferimento 
dei file su disco 



di E. Sarcina 

Molti lettori sicuramente non 
hanno le idee chiare sul modo in 
cui vengono registrati program- 
mi e dati su disco. In questo arti- 
colo cerchiamo di dare una ri- 
sposta alle domande più ricor- 
renti e forniamo un utile pro- 
gramma in grado di trasferire i 
file da un disco all'altro. 


P robabilmente tutti voi avete in casa 
un giradischi, e anche i pochi che 
non ne possiedono uno hanno sicura- 
mente avuto occasione di utilizzare que- 
sto apparecchio. Esso è in grado di leg- 
gere un segnale sonoro da un disco che 
gira, tramite una testina libera di spo- 
starsi lungo il suo raggio; inoltre la lettu- 
ra avviene con uguale facilità (e pratica- 
mente con lo stesso “tempo di accesso”) 
qualunque sia il punto del disco che con- 
tiene il pezzo desiderato. Quando inve- 
ce vogliamo ascoltare un brano registra- 
to su una cassetta, dobbiamo far avan- 
zare o riavvolgere il nastro fino al punto 
in cui si trova la registrazione; ciò signifi- 
ca che il tempo di accesso è notevol- 
mente variabile e può diventare anche 
molto lungo. 

Questa piccola premessa serve a intro- 
durre un’analogia tra il giradischi, stru- 
mento familiare, e il disk drive, che per 
molti resta un oggetto misterioso, una 
“scatola nera” il cui funzionamento è 
ignoto. Proprio come il giradischi, il dri- 
ve legge le informazioni da appositi di- 
schi (e in più può anche scriverle). La 
testina, per fortuna, non deve venir spo- 
stata a mano: il suo movimento è co- 
mandato direttamente da un micropro- 
cessore, un “cervello” analogo a quello 
del computer, che esegue le istruzioni 


di un programma chiamato DOS (Disk 
Operating System = Sistema Operativo 
del Disco). Proseguendo le analogie con 
l’esempio musicale, nel disk drive l’ac- 
cesso alle informazioni è “casuale”, 
cioè non dipende dalla loro posizione 
sul disco; in una unità a nastro, invece, 


l’accesso è “sequenziale”, in quanto per 
trovare un’informazione dobbiamo leg- 
gere in sequenza tutte le precedenti. 

Tracce e settori 

Ma come sono disposte le informazioni 
su un floppy disk? Anche qui ci viene 
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in aiuto il vecchio giradischi. Così come 
un LP è solitamente diviso in zone con- 
centriche separate, ognuna delle quali 
contiene un brano musicale, anche un 
dischetto magnetico viene suddiviso in 
un certo numero di tracce concentriche 
(35 nel caso del Commodore 1541) di 
uguale larghezza. In questo caso, però, 
la divisione non è visibile, in quanto si 
tratta di una registrazione magnetica e 
non di un’incisione fisica. La testina, 
spostandosi lungo il raggio del floppy, 
accede a una delle tracce; per conven- 
zione la traccia n.l è quella più esterna 
e la n.35 è quella più vicina al centro 
del dischetto. Ogni traccia viene poi a 
sua volta suddivisa in un numero di set- 
tori dipendente dalla sua lunghezza (ov- 
viamente, le tracce esterne sono più 
lunghe di quelle interne: esse hanno una 
circonferenza maggiore trovandosi più 
lontane dal centro). I settori sono nume- 
rati a partire da zero e disposti come se- 
gue: 

.tracce 1-17: 21 settori (0-20) 
tracce 18-24: 19 settori (0-18) 
tracce 25-30: 18 settori (0-17) 
tracce 31-35: 17 settori (0-16) 

La suddivisione del disco in tracce e 
settori avviene al momento della for- 
mattazione. Ogni settore contiene un 
blocco di informazioni (256 byte). Il nu- 
mero totale di blocchi è quindi (21x17) 
+(19x7)+(18x6)+(17x5)=683, da cui 
vanno sottratti i 19 blocchi della traccia 
18, utilizzata dal DOS per memorizzare 
alcune “informazioni generali” sul di- 
sco. Ecco quindi come giungiamo ai 664 
blocchi liberi di un dischetto appena for- 
mattato. 

Non è un caso che la scelta sia caduta 
proprio sulla traccia 18, che si trova 
esattamente a metà strada tra la 1 (più 
esterna) e la 35 (più interna): dato che 
la testina accede ai vari file sempre par- 
tendo da questa traccia, il tempo d’ac- 
cesso viene minimizzato. Le informazio- 
ni contenute nella traccia 18 sono le se- 
guenti: 

- Il settore 0 contiene la BAM (Block 
Availability Map — mappa di disponibili- 
tà dei blocchi), un’area di 140 byte in 
cui a ogni blocco del disco viene associa- 
to un bit. Questa mappa indica al DOS 
se un certo blocco è libero (bit=l) oppu- 
re occupato (bit=0). Sempre in questo 
settore è memorizzata la “Header” (Te- 
stata) del dischetto, cioè il nome, e l’ID 
(Identificatore) di due caratteri che noi 
stessi indichiamo per formattarlo. 

- Il settore 1 e i successivi contengono 
la Directory, cioè l’elenco dei file regi- 
strati sul disco. Ogni blocco contiene le 
informazioni relative a 8 file. Per ogni 
file viene indicato il tipo (programma, 
sequenziale, ecc.), il blocco iniziale a 
partire da cui è registrato, il nome (16 
caratteri) e la lunghezza in blocchi. Un 
dischetto può contenere quindi un mas- 
simo di 18x8=144 file. 

Quando registriamo un file sul disco è 
il DOS che si occupa di aggiornare la 
Directory e la BAM, “allocando” i bloc- 


chi utilizzati, cioè facendoli risultare oc- 
cupati nella mappa, in modo che le in- 
formazioni non possano in seguito venir 
cancellate. La scelta dei blocchi da uti- 
lizzare avviene esplorando il disco a 
partire dalla traccia 18 e procedendo 
sia verso l’interno che verso l’esterno; 
cioè, in parole povere, prima vengono 
occupate le zone “centrali”, cioè vicine 
alla traccia 18, e poi man mano si avan- 
za di pari passo verso le due “periferie”, 
interna ed esterna. In tal modo le ultime 
tracce ad essere utilizzate sono la 35 e 
la 1. 

I file registrati su disco possono essere 
di quattro tipi: PRG (programma), SEQ 
(sequenziale), USR (utente) e REL (rela- 
tivo). I primi tre tipi vengono trattati in 
modo analogo dal DOS (si può anzi dire 
che gli USR sono del tutto identici ai 
SEQ), mentre i file relativi sono struttu- 
rati in modo diverso e più complesso, 
ed esulano dal tema di questo articolo. 
Ci occuperemo quindi soltanto dei file- 
programma e dei sequenziali, che diffe- 
riscono tra di loro sostanzialmente per 
il fatto che solo i primi possono essere 
registrati con un comando SAVE e letti 
con un LOAD. Un file PRG è la registra- 
zione di un’area di memoria del compu- 
ter; i primi due byte del file contengono 
l’indirizzo iniziale dell’area salvata. Se 
in seguito per leggere il file si digita 
LOAD“nome”,8 il programma viene ca- 
ricato a partire dall’inizio della RAM 
BASIC, mentre se si digita LOAD“no- 
me”,8,l il file viene caricato a partire 
dall’indirizzo specificato nei due byte di 
cui sopra, che può benissimo non essere 
IMnizio del BASIC (specialmente se si 
tratta di un programma in linguaggio 
macchina). Un file SEQ, invece, è sem- 
plicemente una sequenza di informazio- 
ni (numeri, stringhe, ecc.). 

I programmi e i file sequenziali occupa- 
no il numero di blocchi specificato nella 
Directory in cui è indicato anche l’indi- 
rizzo (traccia e settore) del primo blocco 
di informazione. I byte di ogni blocco 
sono numerati da 0 a 255, ma solo 254 
di essi sono disponibili per l’informazio- 
ne, in quanto i primi due byte sono riser- 
vati. Per l’esattezza, in tutti i blocchi, 
tranne l’ultimo, i byte 0 e 1 contengono 
traccia e settore relativi al blocco suc- 
cessivo, costituendo in tal modo un pun- 
tatore, e i byte 2-255 contengono il 
“pezzo” di file. Nell’ultimo blocco, inve- 
ce, il primo byte vale zero e il secondo 
punta all’ultimo byte del file; se cioè il 
contenuto di questo puntatore è N, allo- 
ra i byte da 2 a N contengono gli ultimi 
N— 1 byte del file. 

Lettura e scrittura dei file 

Se vogliamo scrivere un file sequenziale 
su disco, dobbiamo prima aprirlo con 
un comando OPEN, poi inviare i dati 
tramite istruzioni PRINT # e infine 
chiuderlo con un comando CLOSE. In 
tal caso la forma del comando OPEN è 

OPEN f,8,c,“nome,SEQ,WRITE” 
dove f (numero file) può variare tra 1 e 


127 e c (numero canale) deve essere 
compreso tra 2 e 14. SEQ e WRITE 
possono essere abbreviati con S e W. 
Questo comando viene inviato al DOS, 
che provvede a inserire nella Directory 
il nome e il tipo del file e cerca un blocco 
libero da indicare come primo blocco 
del file. Ora possiamo scrivere nel file 
usando l’istruzione 

PRINT #f, dati 

dove i dati possono essere numeri, strin- 
ghe tra apici, variabili ed espressioni di 
ogni tipo, esattamente come in un’istru- 
zione PRINT sullo schermo. I dati ven- 
gono scritti dal DOS in uno dei buffer 
da 256 byte che si trovano all’interno 
del disk drive, e vengono scaricati su 
disco un blocco per volta. Quando ab- 
biamo terminato dobbiamo chiudere il 
file con un comando 

CLOSE f 

Quando il DOS lo riceve riversa sul di- 
sco l’ultimo blocco del file, “chiude” il 
canale di comunicazione lasciando libe- 
ro il buffer, alloca nella BAM i blocchi 
utilizzati e scrive^nella Directory la lun- 
ghezza del file. E quindi fondamentale 
ricordarsi di chiudere i file aperti: in ca- 
so contrario l’informazione in essi conte- 
nuta può venir cancellata, dato che i 
blocchi registrati vengono ancora indi- 
cati come liberi nella BAM. 

Se invece vogliamo leggere un file se- 
quenziale da disco, dobbiamo prima 
aprirlo con un comando OPEN, poi rice- 
vere i dati tramite istruzioni INPUT # 
e GET # e infine chiuderlo con un co- 
mando CLOSE. In questo caso la forma 
del comando OPEN è 

OPEN f, 8, c, “nome, SEQ, READ” 

Per f e c valgono le limitazioni fatte pre- 
cedentemente; SEQ e READ possono 
essere abbreviati con S e R. Questo co- 
mando viene inviato al DOS, che prov- 
vede a cercare nella Directory il file e 
a leggere l’indirizzo del primo blocco. 
Ora possiamo leggere dal file usando le 
istruzioni 

INPUT #f, variabile 

GET # f , variabile 

La prima istruzione assegna il successi- 
vo dato del file alla variabile indicata. I 
dati sono separati tra loro dai caratteri 
CHR$(13) oppure CHR$(44), cioè il 
RETURN o la virgola; si crea una condi- 
zione di errore, se si cerca di assegnare 
una stringa contenente caratteri non nu- 
merici a una variabile numerica, oppure 
tentando di leggere una stringa più lun- 
ga di 88 caratteri. 

La seconda istruzione assegna il succes- 
sivo byte del file alla variabile indicata; 
si crea una condizione di errore cercan- 
do di assegnare un carattere non nume- 
rico a una variabile numerica. Il DOS 
legge i dati dal file un blocco per volta 
e li pone in uno dei buffer da 256 byte 
che si trovano all’interno del disk drive. 
Quando abbiamo terminato dobbiamo 
chiudere il file con un comando 
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CLOSE f 

Quando il DOS lo riceve “chiude” il ca- 
nale di comunicazione, lasciando libero 
il buffer. 

I file PRG vengono automaticamente 
aperti e chiusi in modo corretto dai co- 
mandi SAVE e LOAD. 

Vediamo ora in dettaglio come vanno 
usate le istruzioni di scrittura (PRINT # ) 
e di lettura (INPUT#, GET #). Innanzi- 
tutto diciamo che esse agiscono esatta- 
mente come le corrispondenti istruzioni 
PRINT /INPUT /GET, con la sola diffe- 
renza che i dati vengono scritti nel file 
(e quindi nel nostro caso su disco) anzi- 
ché sullo schermo, e vengono letti dal 
file (cioè dal disco) invece che dalla ta- 
stiera. Identico è l’effetto dei caratteri 
separatori, sul cui utilizzo ci soffermere- 
mo brevemente per chiarire quale de- 
v’essere la sintassi di un PRINT # e del 
corrispondente INPUT # , affinché i dati 
scritti vengano poi letti in modo esatto. 
Supponiamo di aver aperto, aH’interno 
di un nostro programma, un file sequen- 
ziale chiamato “DATI” in scrittura, 
usando il comando 

OPEN 8,8,8, “DATI, S,W” 

e immaginiamo di aver assegnato le se- 
guenti variabili: 

R$=CHR$(13):V$=“,”:A$=“PIPP0”: 

B$=“PR0VA”:A=53:B=12 

Vogliamo ora scrivere nel file le variabili 
stringa A$ e B$ oppure le variabili nu- 
meriche A e B. Ci sono molti modi per 
farlo; ne esamineremo cinque, ai quali 
possono essere ricondotti in pratica tut- 
ti gli altri. 

Primo modo - Si usano le seguenti 
istruzioni: 

PRINT # 8,A$:PRINT # 8,B$ 

Analogamente all’istruzione PRINT, an- 
che la PRINT # trasmette automatica- 
mente un CHR$(13) al termine del mes- 
saggio stampato, a meno che i dati da 
stampare siano seguiti da un punto e 
virgola (stampa di seguito) o da una vir- 
gola (tabulazione ogni 10 colonne). Il 
carattere CHR$(13) è detto Carriage 
Return (ritorno carrello, cioè “vai a ca- 
po”, termine che deriva dalle macchine 
da scrivere). Sullo schermo un 
CHR$(13) fa andare a capo il cursore; 
in un file costituisce il principale caratte- 
re di separazione tra i “record”, cioè i^ 
singoli dati. In base a quanto detto, ese- 
guendo le istruzioni di cui sopra, nel file 
viene scritta la stringa “PIPPO”, un 
CHR$(13), la stringa “PROVA” e un 
CHR$(13). In modo analogo per A e B 
usiamo le istruzioni 

PRINT # 8,A:PRINT # 8,B 

Come in un’istruzione PRINT, i numeri 
vengono stampati preceduti da uno spa- 
zio (o dal segno meno) e seguiti ancora 
da uno spazio. Quindi in questo caso 
nel file viene scritta la stringa “b53b”, 
un CHR$(13), la stringa “bl2b” e un 
CHR$(13). La lettera “b” airinterno 


delle stringhe rappresenta per chiarez- 
za lo spazio. 

Secondo modo - Si usa un’istruzio- 
ne 

PRINT #8,A$;R$;B$ 

che ha esattamente lo stesso effetto del- 
le istruzioni descritte nel punto prece- 
dente, in quanto anche qui le stringhe 
A$ e B$ vengono separate dal 
CHR$(13) contenuto nella stringa R$. 
Analogamente, l’istruzione 

PRINT # 8,A;R$;B 

stampa nel file le variabili A e B in modo 
identico a quello già descritto. 

Terzo modo - Si usa un’istruzione 

PRINT #8,A$;V$;B$ 

L’unica differenza rispetto al modo pre- 
cedente è che il carattere che separa 
A$ da B$ è la virgola contenuta nella 
stringa V$, cioè CHR$(44). Nel file vie- 
ne quindi scritta la stringa “PIPPO”, un 
CHR$(44), la stringa “PROVA” e un 
CHR$(13). Lo stesso discorso vale per 

PRINT # 8,A;V$;B 

in cui A e B risultano separate da un 
CHR$(44) anziché da un CHR$(13). 

Quarto modo - Si usa un’istruzione 

PRINT #8,A$;B$ 

In questo caso non c’è nessun carattere 
di separazione, e nel file viene scritta la 
stringa “PIPPO”, la stringa “PROVA” 
e un CHR$(13). Analogamente, se usia- 
mo 

PRINT # 8,A;B 

nel file viene scritta la stringa “b53b”, 
la stringa “b!2b” e un CHR$(13). 

Quinto modo - Si usa infine 
un’istruzione 

PRINT #8,A$,B$ 

il cui risultato è quello di separare A$ 
e B$ con alcuni spazi, in quanto la virgo- 
la ha lo stesso effetto di tabulazione che 
avrebbe nell’istruzione PRINT. Nel file 
viene allora scritta la stringa “PIPPO”, 
la stringa “bbbbb”, la stringa “PROVA” 
e un CHR$(13). Analogamente, usan- 
do 

0 

PRINT #8, A, B 

scriviamo nel file la stringa “b53b”, la 
stringa “bbbbbb”, la stringa “bl2b” e 
un CHR$(13). 

Ora che abbiamo elencato i cinque mo- 
di vediamo come possiamo leggere i da- 
ti che abbiamo scritto su disco. Suppo- 
niamo di aver aperto in lettura il file 
“DATI” con un comando 

OPEN 8,8,8,“DATI,S,R” 

e immaginiamo di voler leggere le varia- 
bili A$ e B$ scritte nei vari modi (vedre- 
mo che questo non sempre sarà possibi- 
le). Le istruzioni da usare sono 

INPUT # 8, A$:INPUT # 8,B$ 


oppure 

INPUT #8,A$,B$ 

che hanno esattamente Io stesso effet- 
to. Se A$ e B$ sono state scritte in uno 
qualsiasi dei primi tre modi, allora la 
lettura avviene con successo, assegnan- 
do ad A$ la stringa “PIPPO” e a B$ la 
stringa “PROVA”. Infatti, sia 
CHR$(13) che CHR$(44) sono ricono- 
sciuti dall’istruzione INPUT # come ca- 
ratteri “separatori” di record. 

Se invece leggiamo i dati scritti nel 
quarto modo, ad A$ viene assegnata la 
stringa “PIPPOPROVA” e a B$ non 
viene assegnato nulla; ciò avviene per- 
ché i record non sono separati. 

In modo simile, leggendo i dati scritti 
nel quinto modo, assegnamo ad A$ la 
stringa “PIPPObbbbbPROVA” e B$ re- 
sta vuota, in quanto gli spazi non sono 
riconosciuti come caratteri separatori. 
Un discorso analogo vale se leggiamo 
le variabili A e B con delle istruzioni 

INPUT # 8,A:INPUT # 8,B 
oppure 

INPUT #8, A, B 

Se i dati erano stati scritti nei primi tre 
modi, allora ad A viene assegnato il va- 
lore 53 e a B il valore 12. Se invece 
erano stati utilizzati il quarto o il quinto 
modo, alla variabile A viene assegnato 
il valore 5312 e la variabile B è posta 
a zero, in quanto gli spazi vengono igno- 
rati. 

Abbiamo volutamente tralasciato l’i- 
struzione GET # che, leggendo un solo 
carattere per volta, si presta ad applica- 
zioni diverse da quelle viste finora. Ad 
esempio, consideriamo il breve pro- 
gramma 

10 OPEN 8,8,8»” nome , S » R” 

20 GET# 8 , A$ : I F ST=-128 THEN 4 0 
30 PRINT A$ ; : GOTO 20 
40 PRINT: CLOSE 8: END 

Esso apre un file sequenziale e, byte 
per byte, legge da disco e stampa sullo 
schermo il contenuto del file. La variabi- 
le di stato delle operazioni di input/ 
output, cioè ST, viene testata per verifi- 
care la fine del file (infatti ST normal- 
mente vale zero, ma assume il valore 
-128 quando leggiamo l’ultimo caratte- 
re del file). Un programmino di questo 
tipo può servire ad “esplorare” un file 
di cui non conosciamo il contenuto. 
Vediamo infine un altro uso dell’istru- 
zione GET # . Supponiamo di voler sal- 
vare su disco una serie di N numeri, 
tutti compresi tra zero e 255 (potrebbe- 
ro essere ad esempio codici di schermo 
o codici ASCII). Costruiamo un pro- 
gramma con tali numeri memorizzati in 
opportune istruzioni DATA, e aggiun- 
giamo le seguenti linee: 

10 OPEN 8,8,8, "CODICI , S , W" 

20 FOR 1 = 1 TO N : READ A : PRI NT#8 , CHR$ { A) ; : NEXT 
30 CLOSE 8 

In tal modo costruiamo un file “CODI- 
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CI”, in cui ogni numero occupa un solo 
byte, essendo scritto nella forma 
CHR$(n). Inoltre non sono necessari ca- 
ratteri separatori (infatti la PRINT # 
termina con un punto e virgola), in 
quanto il file verrà poi letto carattere 
per carattere. 

Se la linea 20 fosse stata 

20 FOR 1=1 TO N:READ A: PRINT# 
8,A:NEXT 

cioè se avessimo scritto i numeri “per 
esteso”, in modo da poterli leggere con 
delle istruzioni INPUT # , il file “CODI- 
CI” sarebbe stato almeno cinque volte 
più lungo, con corrispondente aumento 
dello spazio occupato sul disco e del 
tempo di lettura/scrittura. 

Supponiamo ora di voler leggere il file, 
assegnando i numeri a un vettore V%(i). 
La procedura da utilizzare è la seguen- 
te: 

10 DIM V% ( N) : OPEN 8, 8 , 8 , "CODICI, S,R" 

20 FOR 1=1 TO N : GET#8 , A$ : V% ( N) = ASC ( A$ ) : NEXT 
30 CLOSE 8 


II programma copia-file 

In aggiunta a questo articolo forniamo 
un breve programma, nelle due versioni 
per C16-Plus/4 e VIC 20, che consente 
di trasferire da un disco all’altro file di 
qualsiasi tipo (tranne i relativi). Questo 
copia-file crea nella RAM del computer, 
modificando i puntatori del BASIC, un 
buffer, cioè un’area di memoria che vie- 
ne utilizzata per “immagazzinare” tem- 
poraneamente i file letti dal disco sor- 
gente, in modo da poterli poi riversare 
sul disco destinazione. La capacità di 
questo buffer limita la lunghezza massi- 
ma dei file trasferibili, nel senso che non 
è possibile copiare un file più lungo del 
buffer. Premesso che per utilizzare que- 
sto programma con il VIC 20 è necessa- 
rio possedere un’espansione di memo- 
ria da almeno 3 Kilobyte, diamo qui di 
seguito le capacità del buffer per i vari 
computer e nelle varie configurazioni: 


C16 30 blocchi 

Plus/4 95 blocchi 

VIC 20 + 3K . . .10 blocchi 

VIC 20 + 8K . . .30 blocchi 

VIC 20 + 16K . .62 blocchi 

È possibile trasferire fino a 30 file per 
volta e se la lunghezza complessiva dei 
file da copiare supera la capacità del 
buffer, il trasferimento avviene in più 
passate, leggendo ogni volta un numero 
di file tale da poter essere contenuto in 
memoria. 

Il programma è gestito tramite un sem- 
plice menu che comprende le seguenti 
opzioni: 

DIRECTORY, che permette di visualiz- 
zare sullo schermo, divisa in pagine, la 
Directory del disco contenuto nel drive. 

COMANDO DISCO, per inviare qual- 
siasi comando al drive (seguendo la nor- 
male sintassi, ad esempio I per Initiali- 
ze, V per Validate, ecc.). 

COPIA FILE, che consente di seleziona- 
re, visualizzando ad uno ad uno i nomi 
dei file contenuti sul disco, se un certo 
file deve essere copiato (in tal caso pre- 
mere S) o no (premere N); se si tenta 
di scegliere un file di dimensioni supe- 


riori al buffer, viene visualizzato il mes- 
saggio “Troppo lungo!”. Se si desidera 
annullare la selezione perché si è com- 
messo un errore, premere la barra spa- 
ziatrice. Il programma provvede a se- 
gnalare quando va inserito nel drive il 
disco sorgente e quando va invece inse- 
rito il disco destinazione. 

FINE, da usare al termine delle opera- 
zioni. E importante uscire dal program- 
ma in questo modo e non usando il tasto 
RUN/STOP, in quanto questa opzione 
provvede a ristabilire i puntatori del 
BASIC prima di terminare il program- 
ma. 

Lo status del drive viene mostrato al 
termine di qualsiasi operazione eseguita 
sul disco, ed è sempre visibile nella par- 
te bassa dello schermo contenente il 
menu. Se si verifica una condizione di 
errore durante il trasferimento dei file, 
l’operazione viene troncata. 

La lettura e la scrittura dei file avviene 
byte per byte, con l’utilizzazione di due 
sottoprogrammi in linguaggio macchi- 
na, che richiamano opportunamente le 
routine CHRIN e CHROUT del sistema 
operativo Kernal. 

Per concludere illustriamo brevemente 
la divisione in blocchi del programma: 


Linee 

Commento 

10- 30 

Inizializzazione - Modifica puntatori BASIC 

40-110 

Stampa menu - Input comandi 

120-360 

Lettura Directory - Selezione file 

370-480 

Lettura file selezionati 

490-610 

Scrittura file selezionati 

620-650 

Attesa tasto premuto 

660-720 

Input “S” oppure “N” per selezione file 

730-750 

Lettura status disco 

760-830 

Input e invio comando disco 

840-870 

Uscita dal programma - Ripristino puntatori BASIC 

880-910 

Stampa messaggi cambio disco - Inizializzazione disco 

920-960 

Dati linguaggio macchina 


Copia File Versione per VIC20 


1 0 POKE950 , PEEK (56) : POKE5 5 , 0 : POKE5 6 , PEEK ( 
44) +1 6 :CLR: EM=PEEK (56) : EE=PEEK ( 950 ) 

: rem 2 44 

15 TB= ( EE* 2 56- (EM* 2 56) ) /2 56 :rem 126 

20 DIML% ( 31 , 2) ,C$ (31 , 1 ) : OPEN8 ,8,15:0$=" 

{ 8 GIU 1 } " : rem 1 83 

3 0 FORI = 84 8T091 7 :READA : POKEI , A: NEXT : POKE3 

, 6879,25 : rem 244 

4 0 FL=0 : PRINT" {CLR} {CYN } {GIU 1 } { RVS} C 0 P 

I A{ 4 SPAZI }F ILE" : rem 79 

50 PRINT" { 2 GIU * } { BLK } { 2 SPAZl}{RVS} 1 
{OFF } { 2 SPAZI} DIRECTORY" : rem 114 

60 PRINT" { 2 GIU 1 } { 2 SPAZI} {RVS} 2 {OFF} 
{ 2 SPAZI} COMANDO DISCO" : rem 162 

70 PRINT" { 2 GIU 1 } { 2 SPAZI} {RVS} 3 {OFF} 
{ 2 SPAZI }COPIA FILE" : rem 189 


80 

PRINT" { 2 GIU’H 2 SPAZI} {RVS} 4 

{OFF} 


{ 2 SPAZ I } FINE { 6 GIU'}" 

: rem 

1 87 

90 ■ 

GOSUB730 :GOSUB740 

; rem 

21 6 

1 00 

GOSUB640 :ONVAL (C$ ) GOTO! 30,760 ,1 20,84 0 



: rem 

58 

1 1 0 

GOTO90 

: rem 

52 

1 20 

FL= 1 : GOSUB880 : IFVAL ( E$ ) >0THENGOSUB74 0 


:GOSUB640:GOTO40 

: rem 

54 

1 30 

OPEN! ,8,0," $0" 

: rem 

123 

1 40 

GOS UB 7 3 0 : 1 FVAL ( E$ ) > 0 THENGOSUB 74 0 

:CLOS 


El : GOTOl 00 

: rem 

178 

1 50 

P=0 :Q=0 : PRINT" {CLR} {BLK} 

" ; : rem 

180 

1 60 

GET# 1 ,A$,B$ 

: rem 

238 

1 70 

GET# 1 ,A$,B$ 

: rem 

239 

1 80 

GET# 1 ,A$,B$ 

: rem 

240 

1 90 

C=0 

: rem 

74 

200 

IFA$ <> " "THENC=ASC (A$) 

: rem 

128 

21 0 

IFB$<>""THENC=C+ASC (B$ ) * 

256 :rem 

184 

220 

p$ = '"' : p=p+l : PRINT" {RVS} " 

MID$ ( STR$ (C) , 
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2) ; TAB ( 4 ) ; : IFP>1 THENPRINT" 

{OFF}"; 


640 

GETC$ : IFC$ = ""THEN64 0 : rem 

91 



: rem 

1 58 

650 

RETURN : rem 

123 

230 

GET#1 , B$ : IFPEEK (1 44) O0THEN3 50 


660 

POKE 198,0 :rem 

201 



: rem 

1 64 

670 

GETC $ : IFC$<>"S" ANDC $ < > " N " ANDC$ < > " 

"TH 

240 

IFB$OCHR$ ( 34) THEN230 

: rem 

1 30 


EN670 :rem 

47 

250 

GET#1 , B$ : IFB$ <>CHR$ (34) THENPRINTB$ 

;:P 

680 

IFC$ = " "THENRETURN :rem 

36 


$=P$+B$ :GOTO250 

: rem 

22 

690 

IFC$ = "N "THENPRI NTTAB ( 8) " {SU} {PUR} 


260 

GET# 1 ,B$ : IFB$ =CHR$ (32)THEN260 



{ RVS } NO {BLK}": RETURN :rem 

74 



: rem 

72 

700 

IFOTB THENPRI NT" {GIU' } {RED} {RVS} 


270 

PRINT: K$=" " 

: rem 

80 


{ 4 DES} TROPPO LUNGO! {GIU' } {BLK}": 

RET 

280 

K$=K$+B$ :GET#1 , B$ : IFB$<>"" 

THEN280 



URN : rem 

53 



: rem 

252 

71 0 

PRINTTAB ( 8) "{SU} {GRN } { RVS } SI { BLK } " 

:Q= 

290 

PRINT" {RVS}{ 4 DES } "LEFT$ ( K$ , 3) : IFFL= 


Q+l :C$ (Q,0) =P$ :C$ (Q, 1 ) =LEFT$ (K$ , 1 ) 



1 ANDP>1 THENGOSUB660 : IFC$=" 

"THENCLOSE 


: rem 

1 96 


1 : GOTO 4 0 

: rem 

1 00 

720 

L% (Q,0) =C: RETURN :rem 

1 62 

300 

IFFL=1 ANDQ=30THEN360 

: rem 

1 74 

730 

INPUT# 8, E$,L$,M$,N$: RETURN :rem 

1 1 

31 0 

IFP/1 OOINT (P/l 0) ORFL=l THEN340 


740 

PRINT" {HOME} { 20 GIU'H 43 SPAZI} 




: rem 

0 


{ 4 SU}" : rem 

23 

320 

IFFL=0THENGOSUB620 

: rem 

106 

750 

PRINT" {RED} STATUS:": PRINT" {RVS} {GIU' } 






"E$ " { DES } "L$ " {DES } "M$ " { DES } "N$ : RETURN 

330 

PRINT" {CLR}"; 

: r em 

53 


: rem 

206 

340 

IFPEEK (144) =0THEN1 70 

: rem 

1 05 

760 

CC$ = " " : PRINT" {CLR} [<6>] {GRN} "Q$"COMAN 

350 

PRINT" {RVS }BLOCKS FREE" 

: rem 

91 


DO? {GIU'}" : rem 

39 

360 

CLOSEl : IFFL=0THENGOSUB620 : 

GOTO40 


770 

GOSUB64 0 : IFC$OCHR$ (1 3) ANDC$OCHR$ (20 



: rem 

38 


) THENCC$=CC$+C$ : rem 

21 0 

370 

IFQ=0THEN40 

: rem 

1 22 

780 

IFCC$ > " "THENPRINTC$ ; : rem 

1 84 

380 

1 = 1 

: rem 

82 

790 

IFC$ =CHR$ (20) ANDCC$ > " "THENCC? =LEFT$ (C 

390 

PRINT" {CLR} [<6>] " : NB=0 : 1 1 = 

I:POKE883, 0 


C$ , LEN (CC$ ) - 1 ) : rem 

74 


: POKE884 , EM: P0KE8 57 , 0 : POKE858 , EM 

: rem 138 

400 L% ( I , 1 ) =PEEK (857) : L% ( I , 2 ) =PEEK (858) : N 
B=NB+L% (1,0) : IFNB>TBORI>QTHEN490 


800 IFC$OCHR$ ( 1 3) ANDLEN (CC$ ) <44THEN770 

: rem 22 0 

810 IFLEN (CC$ ) =21 THENPRINT : rem 94 

820 PRINT# 8 , CC$ : PRINT" { GIU ' } " : GOSUB7 3 0 : GO 




: rem 

233 


SUB750 

: rem 

30 

41 0 

PRINT"LETT. {RVS}"C$ (1,0) 

: rem 

60 

830 

GOSUB620 :GOTO40 

: rem 

1 38 

420 

OPEN4 ,8,4 ,C$ (1,0) + l " ,"+C$ ( I, 

1)+" ,R" 


840 

PRINT"{CLR} {BLU} { 2 GIU'}SEI SICURO ( 



: rem 

90 


S/N) ?" 

: rem 

87 

430 

GOSUB73 0 : IFVAL ( E$ ) =0THEN4 50 

: rem 

76 

850 

GETC$ : IFC$O"S"ANDC$O"N"THEN850 


440 

CLOSE4 : PRINT : GOSUB750 : PRINT 

ii 




: rem 

55 


{ 2 GIU' } {BLU} {RVS} PREMI UN 

TASTO" 

: GO 

860 

IFC$ = "N"THEN4 0 

: rem 

246 


SUB640 :GOTO40 

: rem 

1 47 

870 

POKE56, PEEK (950) :CLR:PRINT" 

{CLR}" 

: END 

450 

SYS 84 8 :SYS6551 1 :OPEN8,8,15 

: rem 

17 



: rem 

67 

460 

GOSUB730: IFVAL (E$) =0THEN480 

: rem 

82 

880 

PRINT" {CLR} {GRN} "Q$"{ 2 GIU ' } { RVS } INS 

470 

PRINT:GOSUB750 :PRINT" { 2 GIU'} {BLU} 


ERISCI { 2 SPAZI} DISCO SORG . 

" : rem 

147 


{ RVS } PREMI UN TASTO" : GOSUB640 :GOTO40 

890 

PRI NT" { HOME } " ; : GOSUB63 0 : PRI NT# 8 , " 

10": 



: rem 

1 78 


GOSUB730 :RETURN 

: rem 

140 

480 

1=1+1 :GOTO400 

: rem 

206 

900 

PRINT" {CLR} { GRN } "Q$ " { 2 GIU ' } { RVS } INS 

490 

GOSUB900 : IFVAL (E$) >0THENPRINT : GOSUB75 


ERISCI { 2 SPAZI }DISCO DEST. 

" : rem 

129 


0 :GOSUB640 :GOTO40 

: rem 

1 99 

91 0 

PRI NT" { HOME }"; : GOSUB630 : PRINT# 8 , " 

10": 

500 

PRINT" {CLR} [<6>] " : J = 1 1 

: rem 

229 


GOSUB730 :RETURN 

: rem 

1 33 

51 0 

PRINT"SCR . { RVS } "C$ (J,0) :POKE840,L% ( J+ 

920 

DATAI 62,4,32,1 98,255,32,20 7 

, 255,1 41 , 0 


1,1) : POKE84 1 ,L% ( J+1 , 2) 

: rem 

21 9 

% 

,24,238,89,3 

: rem 

1 04 

520 

OPEN4 , 8 , 4 ,C$ (J,0) +","+C$ (J, 

1)+" ,W" 


930 

DATA208, 3, 238, 90, 3, 1 65,144, 

240,238,1 6 



: rem 

98 


9,4,32,195,255 

: rem 

21 2 

530 

GOSUB730 : IFVAL(E$ ) =0THEN550 

:rem 

78 

940 

DATA96 ,162,4,32,201 ,255,1 73 

,0,24, 

32,2 

540 

CLOSE4 :PRINT : GOSUB750 :PRINT 

ti 



10,255,238,1 1 5 

: rem 

1 88 


{ 2 GIU' } {BLU} {RVS} PREMI UN 

TASTO" 

: GO 

950 

DATA3, 208, 3, 238, 1 16, 3, 173, 72, 3, 205, 11 


SUB640 :GOTO40 

: rem 

148 


5,3,208,234 

: rem 

39 

550 

SYS877 :SYS6551 1 :OPEN8, 8, 1 5 

: rem 

20 

960 

DATAI 73,73,3,205,1 1 6, 3,208, 

226,169,4, 

560 

GOSUB730 : IFVAL(E$) =0THEN580 

: rem 

84 


32,1 95,255,96 

: r em 

1 66 

570 

PRINT : GOSUB7 50 : PRINT" { 2 GIU'} {BLU} 

{ RVS } PREMI UN TASTO" : GOSUB64 0 : GOTO40 







: rem 

1 79 





580 

J=J+1 : IFJ < ITHEN51 0 

: rem 

39 

Copia File Versione per C16-Plus/4 



590 

I FJ <QTHENGOS UB 880:1 F VAL ( E$ ) > 0 THENPRI N 






T : GOSUB750 : GOSUB64 0 : GOT04 0 

: rem 

100 

1 0 

POKE950 , PEEK ( 56) : POKE55, 0 :POKE*5 6 , 3 3 :CL 

600 

IFJ<QTHEN390 

: rem 

199 

R:EM=PEEK (56) :EE=PEEK (950) 

: rem 

234 

610 

GOTO40 

: rem 

52 

1 5 

IFEE> 1 28THENEE=1 28 

: rem 

233 

620 

PRINT" {HOME}"; 

: rem 

1 83 

20 

TB= ( EE* 2 56- (EM*2 56) ) /2 56 

:rem 

1 22 

630 

PRI NTQ$ Q$ " { BLU } { 5 GIU’H 4 

DES } { RVS } 

25 

DIML% (31 , 2) ,C$ (31 , 1 ) : OPEN8 , 8 

f 15:Q$ 

- Il 


PREMI UN TASTO {BLK}" 

: rem 

1 37 


{ 8 GIU' } " 

: rem 

1 88 
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30 F0RI=848T091 7 : READA : POKE I , A: NEXT : COLOR 
0 , 1 :COLOR4 , 2 , 1 :rem 213 

40> FL=0 : PRINT" {CLR} {CYN} { 3 GIU ' } "TAB ( 8) " 
{RVS } { 2 SPAZ I } C O P I A{ 4 SPAZljF I 


L E{ 2 SPAZI}" 


rem 


21 


50 PRINT" { 3 GIU' } {BLU} "TAB ( 11 )" {RVS} 1 
{OFF } { 2 SPAZI} DIRECTORY" 

60 PRINT" { 2 GIU' } "TAB ( 1 1 ) "{RVS} 

{ 2 SPAZ I } COMANDO DISCO" 

70 PRINT" { 2 GIU' } "TAB (1 1 ) " {RVS} 

{ 2 SPAZI }COPIA FILE" 

80 PRINT" { 2 GIU' } "TAB ( 1 1 ) "{RVS} 

{ 2 SPAZ I } FINE { 5 GIU’}" 

90 GOSUB730 :GOSUB740 
1 00 GOSUB64 0 : ONVAL (C$ ) GOTOl 30,760,120,840 

: rem 58 

110 GOTO90 : rem 52 

1 20 FL= 1 : GOSUB8 80 : IFVAL(E$) >0THENPRINT" 

{ 4 SU } " : GOSUB74 0 : GOSUB64 0 : GOTO 4 0 


rem 224 

2 {OFF} 
rem 112 

3 {OFF} 
rem 139 

4 {OFF} 
rem 1 20 
rem 21 6 




: rem 

1 33 

1 30 

OPENl , 8, 0,"$0" 

: rem 

1 23 

1 40 

GOSUB7 30 : IFVAL ( E$ ) >0 THE NGOSUB74 0 : 

CLOS 


El : GOTOl 00 

: rem 

1 78 

1 50 

P=0 :Q=0 SPRINT" {CLR} {BLU} " 

: rem 

8 

1 60 

GET# 1 , A$ , B$ 

: rem 

238 

1 70 

GET# 1 ,A$,B$ 

: rem 

239 

1 80 

GET# 1 , A$ , B$ 

: rem 

240 

1 90 

C=0 

: rem 

74 

200 

IFA$ < > " "THENC= ASC (A$) 

: rem 

1 28 

21 0 

IFB$ <> " "THENC=C+ASC (B$) *256 

: rem 

1 84 


220 P$ = "" : P=P+1 SPRINT" {RVS} "MID$ (STR$ (C) , 
2) ; TAB ( 4 ) ; : IFP>1 THENPRINT" {OFF} " ; 

:rem 158 

2 30 GET# 1 , B$ : IFPEEK ( 1 44 ) < > QTHEN3 50 




: rem 

1 64 


GOSUB640 SGOTO40 

: rem 

91 

240 

IFB$OCHR$ (34) THEN230 

: rem 

1 30 

550 

SYS877 : SYS 65 51 1 :OPEN8, 8,15 srem 

20 

250 

GET# 1 ,B$:IFB$ <>CHR$ (34) THENPRINTB$ 

; :P 

560 

GOSUB730 : IFVAL ( E$ ) =0THEN58O srem 

84 


$ = P$ +B$ : GOT02 50 

: rem 

22 

570 

PRINT" { 2 GIU' }":GOSUB740 

SPRINT" 


260 

GET#1 ,B$:IFB$ =CHR$ (32) THEN260 



{ 2 GIU ' } [< 1 >] {RVS } PREMI 

UN TASTO" 

: GO 



: rem 

72 


SUB640 : GOTO 40 

: rem 

1 22 

270 

PRINTTAB (21 ) ; :K$="" 

: rem 

22 

580 

J=J+1 : IFJ<ITHEN51 0 

: rem 

39 

280 

K$=K$+B$ :GET#1 ,B$:IFB$<>"" 

THEN280 


590 

IF J <QTHENGOSUB8 8 0 : IFVAL(E$) >0THENPRIN 



: rem 

252 


T" { 4 SU } " : GOSUB740 : GOSUB64 0 :GOT04 0 

290 

PRINT" {RVS} "LEFT$ (K$ , 3) : IFFL= 1 ANDP> 1 T 



: rem 

235 


HENGOSUB660 : IFC$=" "THENCLOSEl :GOTO40 

600 

IFJ<QTHEN390 

: rem 

1 99 



: rem 

240 

61 0 

GOTO40 

: rem 

52 

300 

IFFL=1 ANDQ=30THEN360 

: rem 

1 74 

620 

PRINT" {HOME}"; 

: rem 

1 83 

31 0 

IFP/21 < > INT ( P/2 1 ) ORFL=l THEN340 


630 

PRINTQ$Q$" [ < 1 > 1 { 7 GIU' } { 

4 DES) {RVS} 



: rem 

4 


PREMI UN TASTO {BLU}" 

: rem 

1 56 

320 

IFFL=0THENGOSUB620 

: rem 

106 

640 

GETKEYC? 

: rem 

202 

330 

PRINT" {CLR} " 

: rem 

250 

650 

RETURN 

: rem 

1 23 

340 

IFPEEK (1 44) =0THEN1 70 

: rem 

105 

660 

POKE239, 0 

: rem 

1 97 

350 

PRINT" {RVS} BLOCKS FREE" 

: rem 

91 

670 

GETC$ :IFC$0"S"ANDC$0"N" 

ANDC$ < > " 

"TH 

360 

CLOSEl : IFFL=0THENGOSUB620 : 

GOTO40 


% 

EN670 

: rem 

47 



: rem 

38 

680 

IFC$=" "THENRETURN 

: rem 

36 

370 

IFQ=0THEN40 

: rem 

1 22 

690 

IFC$="N"THENPRINTTAB ( 25) " 

{SU} {PUR} 


380 

1=1 

: rem 

82 


{ RVS } NO { BLU } " : RETURN 

: rem 

8 

390 

PRINT" {CLR} [<6>] ":NB=0 : 11 = 

I SPOKE883, 0 

700 

IFOTBTHENPRINT" {GIU' } {RED} {RVS} 




90 

17 

82 


GOSUB640 :GOTO40 :rem 

450 SYS 84 8 :SYS6551 1 :OPEN8 ,8,15 :rem 
460 GOSUB730 : IFVAL(E$) =0THEN480 :rem 
470 PRINT" { 2 GIU' }": GOSUB74 0 : PRINT" 

{ 2 GIU ' } [ < 1 > ] {RVS } PREMI UN TASTO" 
SUB64 0 : GOT04 0 :rem 

480 1=1+1 :GOTO400 :rem 

490 GOSUB900 : IFVAL(E$) >0 THENPRINT" 

{ 4 SU } " : GOSUB740 :GOSUB64 0 : GOT04 0 

: rem 

500 PRINT" {CLR} [<6>] ":J=II :rem 

510 PRINT "STO SCRIVENDO { 2 SPAZ I } {RVS } "C$ 
( J, 0) : POKE840, L% ( J+l , 1 ) :POKE841 , L% ( J+ 
1,2) : rem 1 04 

520 OPEN4 , 8, 4,C$ ( J, 0) +" ,"+C$ ( J, 1 ) +" ,W" 

:rem 98 

530 GOSUB730 : IFVAL(E$) =0THEN550 :rem 78 

540 CLOSE4: PRINT" { 2 GIU ' } " : GOSUB74 0 : PRIN 
T" { 2 GIU' } [<1 >] {RVS} PREMI UN TASTO": 


: GO 
1 21 
206 


78 

229 


:POKE884 , EM: POKE857, 0 :POKE858,EM 

: rem 138 

4 00 L% ( 1 , 1 ) =PEEK (857) :L% ( I, 2) =PEEK(858) :N 
B=NB+L% (1,0) : IFNB>TBORI >QTHEN4 90 

:rem 233 

410 PRINT"STO LEGGENDO { 2 SPAZ I } {RVS} "C$ ( 
1,0) : rem 16 

420 OPEN4 , 8, 4,C$ ( I , 0) +" ,"+C$ ( I, 1 ) +" ,R" 

: rem 90 

430 GOSUB73 0 : IFVAL ( E$ ) =0THEN4 50 :rem 76 

440 CLOSE4 SPRINT" { 2 GIU '}": GOSUB74 0 : PRIN 
T"{ 2 GIU' } [<1>] { RVS } PREMI UN TASTO": 


71 0 


720 

730 

740 

750 


{ 4 DES } TROPPO LUNGO! {GIU' } {BLU}":RET 
URN : rem 1 96 
PRINTTAB (25) " {SU} {GRN } {RVS } SI { BLU} " : Q 
=Q+1 :C$ (Q , 0) =P$ :C$ (Q , 1 ) =LEFT$ (K$, 1 ) 


L% (Q, 0) =C : RETURN 
INPUT# 8 , E$ , L$ ,M$ , N$ : RETURN 
PRINT" {SU} { 39 SPAZI} { 3 SU}" 


{ DES } " L$ " { DES } "M$ " { DES } "N$ : RETURN 


: rem 

1 30 

: rem 

1 62 

: rem 

11 

}" 

: rem 

1 76 

{RVS} 

M E$ " 

RETURN 

:rem 

86 
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760 

CC$="": PRINT" {CLR} [<6>] "Q$ "COMANDO? 


{GIU' }" 

: rem 

9 

770 

GOSUB640 : IFC$OCHR$ ( 1 3) ANDC$OCHR$ (20 


) THENCC$ =CC$ +C$ 

:’rem 

21 0 

780 

IFCC$ > " "THENPRINTC$ ; 

: rem 

1 84 

790 

IFC$ =CHR$ ( 20) ANDCC$ > " "THENCC? =LEFT$ (C 


C$,LEN(CC$)-1) 

: rem 

74 

800 

IFC$OCHR$ (13) ANDLEN (CC$ ) <39THEN770 



: rem 

224 

81 0 

IFLEN (CCS ) =39THENPRINT 

: rem 

1 03 

820 

PRINT#8,CC$:PRINT"{ 3 GIU'}" 

: GOSUB730 


:GOSUB740 

: rem 

63 

830 

GOSUB620 :GOTO40 

: rem 

1 38 

840 

PRINT" {CLR} {YEL} { 2 GIU'}SEI 

SICURO ( 


S/N) ?" 

: rem 

21 4 

850 

GETC$ : I FC$ < > " S "ANDC$ <>"N" THEN8 5 0 




: rem 

55 

860 

IFC$="N"THEN40 

: rem 

246 

870 

POKE56, PEEK (950) :CLR:SCNCLR: 

END 




: rem 

1 64 

880 

PRINT" {CLR} { YEL} "Q$ " { 4 GIU' 

} 



{ 8 DES} {RVS} INSERISCI DISCO SORGENTE 


" : rem 2 7 

890 PRINT" {HOME} "TAB ( 9) ; :GOSUB630 :PRINT#8 
, "IO" :GOSUB730: RETURN :rem 237 

900 PRINT" {CLR} { YEL} "Q$ " { 4 GIU'} 

{ 6 DES} {RVS} INSERISCI DISCO DESTINAZ 
IONE" . :rem 0 

91 0 PRINT" {HOME} "TAB (9) ; :GOSUB630 :PRINT#8 
, " 1 0 " : GOSUB7 3 0 : RETURN :rem 230 

920 DATAI. 62 ,4,32, 1 98,255, 32,207,255, 1 41 ,0 
,24,238,89,3 :rem 104 

930 DATA208, 3,238, 90, 3, 1 65,144,240,238,16 
9,4,32,195,255 :rem 212 

940 DATA96 ,162,4,32,201 ,255,173,0,24,32,2 
10,255,238,115 :rem 188 

950 DATA3, 208, 3, 238, 1 16,3,173,72,3,205,11 
5,3,208,234 :rem 39 

960 DATAI 73,73,3,20 5,116,3,208,226,169,4, 
32,1 95,255,96. : rem 166 
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MLX 

per VIC 20 

di C. Brannon 

trad. e adatt. 

di F. Stella 


M LX è un programma che permet- 
te di inserire listati in linguaggio 
macchina esenti in modo assoluto da 
errori e senza la perdita di tempo del 
dover battere e controllare lunghe se- 
quenze di istruzioni DATA. 

Molti dei nostri listati di programmi in 
linguaggio macchina hanno il formato 
MLX (li riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sia caricato in memoria 
ed eseguito prima della battitura del li- 
stato. 

MLX vi chiederà l’indirizzo della loca- 
zione di partenza e quello della locazio- 
ne finale del programma da caricare. 
Questi valori sono sempre indicati nel- 
l’articolo che accompagna il listato. 
MLX vi segnala automaticamente gli er- 
rori di battitura MENTRE STATE DIGI- 
TANDO IL LISTATO e vi chiede di 
reinserire la linea errata. L’ultimo nu- 
mero battuto di ogni linea rappresenta 
il checksum e viene visualizzato in re- 
verse. 

Sono inoltre disponibili altri comandi, 
quali: 

SHIFT-N nuovo indirizzo: permette di 
cambiare l’indirizzo della linea che vole- 
te battere ed è utile nel caso si inserisca- 
no i listati in più parti. 



SHIFT-D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro 
o SHIFT-S save: salva su nastro o disco 
un file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un’istruzione 


LOAD “nome del file”, 1,1 per il regi- 
stratore, oppure LOAD “nome del fi- 
le”,8,l per l’unità a dischi, salvo diverse 
indicazioni date negli articoli corrispon- 
denti ai vari programmi. Il programma 
sarà generalmente mandato in esecu- 
zione con una SYS (indirizzo di parten- 
za). 


MLX versione per VIC 20 

1 00 PRINT" {CLR} {PUR}” ;CHR$ (142) ;CHR$ (8) ; 

: rem 1 81 

101 POKE788 ,194: REM DISABILITA RUN/STOP 

:rem 144 

110 PRINT" {RVS} { 14 SPAZI}" :rem 117 

120 PRINT" {RVS} {DES} {OFF} [<*>] £{RVS} 

{DES} {DES}{ 2 SPAZI }[<*>] {OFF} [<*>] 

£ {RVS } £ {RVS } " : rem 191 

130 PRINT"TRVS} {DES} [ <G> ] {DES } 

{ 2 DES} {OFF} £{RVS }£[<*>] {OFF} [<*>] 
{RVS} {OFF}" : rem 122 

140 PRINT" {RVS }{ 14 SPAZI}" :rem 120 

200 PRINT" { 2 GIU ' } {PUR} {BLK}UN PROGRAMMA 
PER L ' IN-TRODUZIONE { 2 SPAZI }DI ROUT 
INEIN LINGUAGGIO MACCHINA"; :rem 202 
205 PRINT" A PROVA DI ERRORE { 5 GIU'}" 

:rem 226 

210 PRINT" {BLK} { 4 SU}INDIRIZZO DI PARTEN 
ZA" : INPUTS: F=1 -F:C$=CHR$ (31 +1 1 9*F) 

:rem 52 

220 I FS <25 60RS >3276 7THENGOSU B3 0 0 0 : GOTO 2 1 0 

: rem 2 

225 PRINT: PRINT: PRINT: PRINT :rem 123 

230 PRINT" {BLK} { 3 SU}lNDIRIZZO CONCLUSIV 
O" : INPUTE:F=1 -F:C$=CHR$ (31 +1 1 9*F) 

: rem 1 70 


240 IFE<2 56ORE>32767THENGOSUB3000 : GOTO230 

:rem 234 

250 IFE<STHENPRINTC$ ; " {RVS } INDI RI ZZO CONC 
LUSIVO < INDIRIZZO DI PARTENZA 
{ 3 GIU ' } " :GOSUBl 000 : GOTO 2 30 : rem 27 
260 PRINT: PRINT: PRINT :rem 179 

300 PRINT" {CLR}" ;CHR$ (1 4) :AD=S :rem 56 
31 0 PRINTRIGHT$ ("0000"+MID$ (STR$ (AD) , 2) , 5 
);":";: FORJ= 1 T06 :rem 234 

320 GOSUB570: IFN=-1 THENJ=J+N : GOTO320 

:rem 228 

390 IFN=- 211 THEN71 0 :rem 62 

400 IFN=- 204THEN790 :rem 64 

41 0 IFN=- 206THENPRINT: PRINT" {GIU ’ } INSERIS 
CI UN NUOVO { 4 SPAZI } INDIRI ZZO" ; : INPU 
TZZ :rem 42 

41 5 IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 
{RVS }ESCE DAL CAMPO DI VA-" :rem 150 

41 6 IFN=- 206THENIFZZ<SORZZ>ETHENPRINT" 
{RVS} LORI INDICATO" :GOSUBl 000 :GOT041 0 

: rem 105 

41 7 IFN=-206THENAD=ZZ: PRINT:GOT031 0 

:rem 238 

420 IFNO-1 96THEN480 -.rem 133 

430 PRINT: INPUT"LISTATO:DA" ; F: PRINT, " 

{ 2 SIN}A" ; : INPUTT :rem 29 
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440 IFF<SORF>EORT<SORT>ETHENPRINT"MINIMO" 
; S; " {SIN}, MASSIMO" ;E:GOTO430 

:rem 36 

450 FORI =FTOTSTEP6 : PRINT: PRINTRIGHT$ ("000 
0" +MID$ (STR$ (I) ,2) ,5) :rem 30 
455 FORK=0TO5:N=PEEK (I+K) : IFK=3THENPRINTS 



PC ( 1 0 ) ; 

: rem 

34 

457 

PRINTRIGHT$ ("00"+MID$ (STR$ (N) ,2) , 

3) ?" 


n • 

9 9 

: rem 

1 57 

460 

GETA$ : I F A$ > " " THEN PRINT: PRINT:GOT031 0 



: rem 

25 

4 70 

NEXTK : PRINTCHR$ (20) ; :NEXTI 

: PRINT: 

PRIN 


T:GOT031 0 

: rem 

50 

480 

IFN<0THENPRINT:GOTO31 0 

: rem 

1 68 

490 

A ( J) =N : NEXTJ 

: rem 

1 99 

500 

CKSUM=AD- INT (AD/256) *256: FORI =1T06:CK 


SUM= (CKSUM+A ( I ) ) AND2 55 : NEXT :rem 

200 

510 

PRINTCHR? (1 8) ; :GOSUB570 : PRINTCHRS (20) 



: rem 

234 

515 

IFN=CKSUMTHEN530 

: rem 

255 

520 

PRINT: PRINT" LA RIGA E’ STATA INSE 

-RIT 


A IN MANIERA ERRATA" 

: rem 

39 

525 

PRINT" RI- INSERIRLA" : PRINT: 

GOSUBl 000:G 


OT031 0 

: rem 

1 67 

530 

GOSUB2000 

: rem 

21 8 

540 

FORI=lT06: POKEAD+I-1 ,A(I) : 

NEXT 




: rem 

80 

550 

AD=AD+6: IFAD<ETHEN31 0 

: rem 

212 

560 

GOTO 71 0 

: rem 

1 08 

570 

N=0 : Z=0 

: rem 

88 

580 

PRINT" [<+>]"; 

: rem 

79 

581 

GETA$ : I FA$ =" " THEN 581 

: rem 

95 

585 

PRINTCHR$ (20) ; :A=ASC (A$) : IFA=1 30RA=44 


ORA= 32THEN670 

: rem 

229 

590 

IFA>1 2 8 THENN = - A : RETURN 

: rem 

1 37 

600 

IFA020THEN630 

: rem 

1 0 

610 

GOSUB690: IFI=1 ANDT=44THENN 

=-l : PRINT" 


{SIN} {SIN}"; :GOTO690 

: rem 

1 72 

620 

GOTO570 

: rem 

1 09 

630 

IFA<48ORA>57THEN580 

: rem 

1 05 

640 

PRINTA$ ; : N=N*1 O+A-48 

: rem 

1 06 

650 

IFN>255THENA=20:GOSUB1 000: 

GOTO600 




: rem 

229 

660 

Z=Z+1 : IFZ<3THEN580 

: rem 

71 

670 

IFZ=0THENGOSUBl 000:GOTO570 

: rem 

1 1 4 

680 

PRINT","; : RETURN 

: r em 

240 

690 

S%=PEEK (209) +256*PEEK (210) +PEEK ( 2 

11) 



: rem 

1 49 

692 

FORI =1 T03 : T=PEEK (S%-I ) 

: rem 

68 


695 IFT< >44ANDT< > 58THENPOKES%- 1,32: NEXT 

treni 20 5 

700 PRINTLEFTS (" { 3 SIN }", I- 1 );: RETURN 

: rem 7 

710 PRINT" {CLR} {RVS}*** SAVE *** 

{ 3 GIU' }" : rem 236 

720 INPUT" {GIU 1 } NOME DEL FILE";F$ 

' :rem 199 

730 PRINT: PRINT" { 2 GIU ’ } {RVS }N{OFF}ASTRO 
0 {RVS }D {OFF } ISCO : (N/D)" :rem 128 

740 GETA$ : IFA$< >"N" ANDA$< >"D"THEN740 

:rem 30 

750 DV= 1-7* (A$="D" ) : IFDV=8THENF$="0: "+F$ 

: rem 1 58 

760 T$=F$ : ZK=PEEK (53) +256*PEEK (54) -LEN(T$ 
) :POKE782 ,ZK/256 :rem 3 

762 POKE781 , ZK- PEEK ( 782 ) * 256 : POKE780 , LEN ( 

T$ ) : SYS65469 :rem 109 

763 POKE780, 1 .-POKE781 , DV: POKE782 , 1 :SYS654 

66 :rem 69 

765 POKE254 , S/256 : POKE253 , S-PEEK (254) *256 
: POKE780, 253 :rem 12 


766 POKE782 ,E/256:POKE781 ,E-PEEK(782) *256 
: SYS65496 :rem 124 

770 I F ( PEEK (783) AND 1 ) OR ( ST ANDl 91 ) THEN780 

: rem 1 1 1 

775 PRINT" {GIU’ {OPERAZIONE CONCLUSA. ": END 

: rem 1 52 


780 PRINT" {GIU 1 {ERRORE DI REGISTRAZIO-NE . 



RI PRO VA . " : I FD V= 1 THEN 7 2 0 

: rem 

8 

781 

OPENl 5,8,15: INPUT# 1 5,El$ 

,E2$:PRINTE1$ 


;E2$:CLOSEl 5: GOTO 720 

: rem 

1 03 

782 

GOTO 7 20 

: rem 

1 1 5 

790 

PRINT" {CLR} {RVS}*** LO AD 

★ * * 



{ 2 GIU’ }" 

: rem 

21 2 

800 

INPUT" { 2 GIU'} NOME DEL 

FILE" ; F$ 




: rem 

21 5 


810 PRINT: PRINT" { 2 GIU ’}{ RVS }N {OFF {ASTRO 
O {RVS }D {OFF } I SCO: (N/D)" :rem 127 
820 GETA$ : IFA$< >"N"ANDA$< >"D"THEN82 0 


: rem 28 

830 DV= 1 - 7* ( A$ = "D" ) : IFDV= 8THENF$ = " 0 : " +F$ 

: rem 157 


840 T$=F$: ZK=PEEK (53) +2 56* PEEK (54) -LEN (T$ 

) :POKE782,ZK/256 -.rem 2 

841 POKE781 , ZK- PEEK (782) * 256 : POKE780 , LEN ( 



T$ ) : SYS65469 

: rem 

107 

845 

POKE780, 1 : POKE781 ,DV: POKE782 

, 1 : SYS 6 54 


66 

: rem 

70 

850 

POKE780, 0: SYS65493 

: rem 

1 1 

860 

IF (PEEK (783) ANDl ) OR (ST ANDl 91 ) THEN870 



: rem 

1 1 1 

865 

PRINT" {GIU’ }OPERAZIONE CONCLUSA." 

: GOT 


0310 

: rem 

1 42 

870 

PRINT" {GIU' {ERRORE DI CARICAMENTO 

. RI P 


ROVA. {GIU' }" : IFDV=1 THEN800 

: rem 

43 

880 

OPENl 5,8 , 1 5: INPUT# 1 5,El $ ,E2$ 

: PRINTEl $ 


;E2$:CLOSEl 5:GOTO800 

: rem 

1 02 

1 000 

REM CICALINO 

: rem 

231 

1001 

POKE36878 , 1 5:POKE368 74, 1 90 

: rem 

206 

1002 

FORW= 1 TO 3 0 0 : NEXTW 

: rem 

1 1 7 

1 003 

POKE36878 , 0: POKE36874, 0: RETURN 




: rem 

74 

2000 

REM CAMPANELLO 

: rem 

1 30 

2001 

FORW=l 5TOOSTEP-1 : POKE36878, 

W: POKE368 


76,240: NEXTW :rem 22 
2002 POKE368 7 6,0: RETURN :rem 119 
3000 PRINTCS; " {RVSjNON IN PAGINA ZERO O 
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Come proteggere dalla scrittura 
i propri dischetti 

* * trad. e adatt. 

di S. Albarelli 



Chi possiede un’unità singola 
per floppy disk Commodore, sa- 
prà certamente quanto sia facile, 
per un banale errore di program- 
mazione, perdere i programmi 
presenti in un dischetto o can- 
cellarne alcuni e non poterli piu 
recuperare. Con questa utility i 
programmi salvati sui vostri di- 
schetti saranno al sicuro come 
in una cassaforte e non corre- 
ranno alcun rischio di essere ac- 
cidentalmente cancellati. 


*W*utti i possessori di un’unità per flop- 
M py disk sanno che ponendo un pez- 
zo di nastro adesivo, o una delle etichet- 
tine fornite insieme ai floppy disk, sulla 
tacchetta presente su un lato del di- 
schetto, si può impedire la sovrascrittu- 
ra su quel disco. 

In tal modo è possibile caricare pro- 
grammi, ma non salvarne ed è possibile 
leggere file, ma non scriverne. 
Comunque i difetti di questo sistema di 
protezione sono molti e rilevanti. 
Infatti, l’etichettina o il nastro adesivo 


sono facilmente asportabili da chiunque 
(qualsiasi persona competente in fatto 
di computer potrebbe quindi, all’insapu- 
ta del padrone del dischetto, manomet- 
terne il contenuto). 

Inoltre un’insufficiente aderenza del na- 
stro adesivo o dell’etichetta al dischetto 
potrebbe rendere difficoltosi l’inseri- 
mento e l’estrazione dall’unità lettrice. 
Questi sono solo due dei difetti che pre- 
senta questo sistema, ma ve ne sono 
innumerevoli altri. 
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Compatibilita tra unità diverse 
e Flag del DOS 

Il sistema operativo dell’unità a floppy 
disk, cioè il DOS (Disk Operating Sy- 
stem) dell’unità a floppy disk 1541, di- 
scende dal DOS delle unità più grandi, 
utilizzate dai computer Commodore di 
modello industriale. 

La Commodore ha fatto ciò per rendere 
soddisfacentemente compatibili i floppy 
disk di tutti i computer prodotti e gestiti 
dalle relative unità a floppy disk. 
Quando un disco viene formattato, vie- 
ne diviso in tracce e settori. 

Il blocco di dati identificato dal settore 

0 della traccia 18 contiene la mappa 
dei blocchi, il nome del disco, l’ID del 
disco e altre informazioni importanti. Il 
byte 2 di questo blocco contiene un flag 
che indica la versione del DOS usata 
per formattare il dischetto. 
Normalmente, esso contiene il valore 
$41 (65 decimale, “A” in ASCII). 
Questo valore segnala che il dischetto 
è stato formattato con un’unità 1541 o 
4040, che sono tra loro compatibili. Ciò 
significa che un 1541 può leggere un 
dischetto formattato con un 4040 e vi- 
ceversa. 

Teoricamente un 1541 potrebbe persi- 
no scrivere su un dischetto formattato 
da un 4040, ma in realtà tale operazio- 
ne non darebbe buon esito, poiché tra 
il 1541 e il 4040 c’è una leggera diffe- 
renza di allineamento delle testine. 

C’è inoltre un’unità per floppy disk 
Commodore, chiamata 2040, che al 
momento della formattazione fornisce 
il dischetto di un numero maggiore di 
settori. Se un dischetto è stato formatta- 
to mediante questa unità, contiene nel 
byte 2 del settore 0 della traccia 18 il 
valore $01 (1 decimale). 

1 dischetti formattati da un 2040 sono 
compatibili solo in lettura e non in scrit- 
tura con il 1541. 

Infatti, se si tenta di salvare con un 
1541 un programma su un dischetto in 
formato 2040, si otterrà l’errore nume- 
ro 73 del DOS, la luce rossa comincerà 
a lampeggiare e non verrà salvato nulla. 

Proteggere ttn dischetto dalla 
scrittura 

Se si cambiasse il valore del flag presen- 
te nel byte 2 del settore 0 della traccia 
18, potremmo far credere al computer 
che il dischetto è stato formattato con 
un’unità 2040. 


Perciò quando si tentasse di salvare 
qualche programma su un dischetto di 
cui è stato modificato il valore del flag, 
il computer, pensando che il dischetto 
è stato formattato con un 2040, non 
salverebbe nulla. 

Ciò può proteggere il dischetto da so- 
vrascritture e da ”scratch”, cioè cancel- 
lazioni, di file e programmi. 

Questo comunque NON protegge i file 
dalla copiatura. 

Esistono in commercio programmi che 
copiano un intero dischetto in un altro 
disco. 

Utilizzando tali utility per copiare un di- 
schetto protetto in tal modo dalla sovra- 
scrittura, anche la copia sarà protetta, 
poiché esse lavorano anche sulla traccia 
18 e sul suo settore 0, copiando il flag. 
Se invece si copia un solo programma, 
caricandolo e salvandolo in un altro di- 
sco, esso, essendo stato salvato su un 
disco sprotetto, potrà essere cancellato 
senza problemi (dal dischetto sprotetto, 
naturalmente). 

Dopo aver modificato il flag si potrà 
leggere file e caricare programmi, ma 
non sarà possibile salvare programmi, 
scrivere file, cancellarne, cambiarne il 
nome, né dare il comando “validate” al- 
l’unità. 

L’unico comando di scrittura che si può 
utilizzare è il comando “N: nome del 
disco, ID”, che formatta il dischetto. Uti- 
lizzandolo, il disco verrà automatica- 
mente sprotetto, ma verranno persi tut- 
ti i programmi in esso contenuti. 

Sproteggere un dischetto 

Cambiare il contenuto del flag di DOS 
presente nel byte 2 del settore 0 della 
traccia 18 è molto semplice da attuare, 
utilizzando i comandi “Block-Read” 
(Ul) e “Block-Write” (U2). 

Come fare se si cambia idea e si vuole 
nuovamente scrivere su un disco protet- 
to? Mettendo il valore originale nel flag 
di DOS! 

Esso, come già detto, è $41. 

Facendo ciò il processo di protezione si 
converte. 

Però, poiché il dischetto è protetto, non 
ci è concesso usare questi due comandi 
e perciò è necessario ricorrere al co- 
mando “Memory-Write”, molto simile a 
una POKE, attuata però all’interno del- 
la memoria del dischetto. 

Facendo ciò, è possibile usare i due co- 
mandi sopra indicati per sproteggere il 


dischetto, riportando il flag al suo valo- 
re consueto. 

Come usare il programma 
“DISK LOCK” 

Questo programma è molto facile da 
usare ed è disponibile nella versione 
VIC 20 e C16-Plus/4. 

Quando lo si fa girare, è necessario inse- 
rire nell’unità a floppy disk il dischetto 
su cui bisogna operare. 

All’inizio verrà visualizzata una scher- 
mata di presentazione, nella quale, do- 
po l’apertura di alcuni file per comuni- 
care con il drive, verrà stampato il mes- 
saggio: “(P)roteggi o (S)proteggi” segui- 
to da un punto interrogativo. 

A questo punto è necessario scegliere 
se proteggere o sproteggere il dischetto 
inserito nel drive. 

Per comunicare al computer la propria 
scelta bisognerà poi premere l’iniziale 
dell’opzione scelta (P per proteggere e 
S per sproteggere). 

Fatto ciò il computer modificherà, in ba- 
se alla scelta dell’utente, il famoso byte 
2 del settore 0 della traccia 18. 
Quando avrà finito il computer chiuderà 
i file e farà girare nuovamente il pro- 
gramma, in caso che l’utente desideri 
agire su altri dischetti. 

L’utente, per comodità, potrà marcare 
i dischetti protetti scrivendo una P sul- 
l’etichetta, utilizzando per farlo una 
penna ad inchiostro con punta morbida 
(cioè fatta come quella dei pennarelli), 
in modo da non danneggiare il dischet- 
to. 

L’obbiettivo finale di “DISK LOCK” è 
di proteggere dalla sovrascrittura di- 
schetti di archivi o “backup”, cioè copie 
di sicurezza di dischetti importanti. 

E consigliabile non proteggere tutti i 
propri dischetti, poiché, in caso di ne- 
cessità, bisognerà ricorrere al program- 
ma “DISK LOCK” per poter salvare in 
essi altri programmi. 

N.B. Per tutti coloro che non possiedo- 
no la cassetta allegata a questo numero 
di SuperCommodore ricordo che è mol- 
to importante battere attentamente il 
programma, poiché esso contiene molti 
comandi complessi diretti al drive, nei 
quali anche una virgola o un segno di 
tabulazione errato può creare seri pro- 
blemi e compromettere la sicurezza dei 
programmi contenuti nei dischetti pro- 
tetti mediante l’utility. 


“Disk lock” 

versione per C16-Plus/4 

5 GOSUBl 0000 :rem 166 

1 0 OPENl 5,8,15: PRINT#! 5 , « 1 0 " : OPEN2 , 8 , 2 , " # 
" : rem 27 

20 PRINT# 1 5 , "Ul ;2;0;18;0: GOSUB 1000 

: rem 1 0 

30 PRINT#! 5, "B-P : " ; 2 ; 2 :rem 188 

40 PRINT" {HOME} { 17 GIU 1 } ( P) ROTEGGI O (S) 
PROTEGGI" : rem 111 


45 

GETA$ : IFA$ = "S"THENPRINT ,, S" : 

GOTO70 




: rem 

221 

50 

IFA$ <>"P"THEN4 5 

: rem 

255 

55 

PRINT"P" 

: rem 

1 39 

60 

PRINT#2,CHR$ (1 ) ; : GOSUBl 000: 

GOTOl 00 




: rem 

1 77 

70 

PRINT#2,CHR$ (65) ; :GOSUBÌ 000 

: rem 

232 


80 PRINTfl 5 , "M- W" ; CHR$ ( 1 ) ; CHR$ ( 1 ) ;CHR$ ( 1 ) 
;CHR$(65) : rem 241 

90 PRINT#! 5,"M-W" ;CHR$ (2) ;CHR$ (7) ;CHR$ ( 1 ) 
;CHR$(65) : rem 249 
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100 PRINT# 1 5, "U2 : " ; 2 ; 0 ; 1 8 ; 0 rGOSUBl 000 

:rem 58 

1 1 0 CLOSE2 : PRINT# 1 5, " IO" : CLOSEl 5:FORQ=lTO 
2000 rNEXTrRUN :rem 118 

1000 INPUT# 1 5, EN, EM$ , ET, ES :rem 4 

1010 IFENTHENPRINT" {HOME} { 21 GIU , }"EN"," 
ET" ,"ES:PRINT" {GIU' } "EM$ :rem 210 

1 020 RETURN : rem 163 

10000 PRINT” {CLR}" :rem 85 

10010 PRINT" {RED} U{ 3 *}_I UIU { 4 *} IUI 

U* I " : rem 245 

10020 PRINT" { RED } -U*I- { 3 -}U{ 3 *}K 
{ 2 - } UKUK { 5 SPAZI} {BLKj{RVST ~ 

{ 12 SPAZI}" : rem 11 

10030 PRINT" { RED } { 2 _} -Jl{ 3 -}j 

{ 3 *} I-JKUK { 6 SPAZI} {BLK7{RVS} 
{CYNT [ < 8 > ] [ < 2 +>]{BLK}{ 8 SPAZI} 

" :rem 63 

10040 PRINT" {RED} { 2 -} JI{ 3 -}J 

{ 3 *}_I{ 2 -} UIJI { 6 SPAZI }IBLK} 
{RVSj [ < 8 > ] [ < 3 +>]{BLK}{ 8 SPAZI} 

" :rem 67 

1 0050 PRINT" { RED } -J{ 2 _*}K{ 3 ^}U 

{ 3 * } K { 3 -TJIJI{ 5 SPAZlJlBLK} 
{RVSj { 4 SPAZI }U{ 2 *}JI{ 4 SPAZI}" 

: rem 201 

10060 PRINT" {RED} J{ 4 *}KJKJ{ 4 *}KJK J 
*k { 5 spazi }Tblk}TrvsTT 4 SPAZlT-U 
I^{ 4 SPAZI}" : rem 135 

10070 PRINT" { RED } { 26 SPAZ I }{ BLK }{ RVS } 

{ 4 SPAZI }-JK-{ 4 SPAZI}" :rem 214 
10080 PRINT" {RED} Ul{ 4 SPAZl}U{ 4 *} IU 
{ 4 jMlUI Un {BLK} {RVS }T 4 SPAZI} 
J{ 2 *7 kT 4 SPAZI}" : rem 115 

10090 PRINT" { RED } { 2 - } { 4 SPAZIJ-U 
{ 2 *}^{ 2 -}U{ 3 *}K{ 2 - } UKUK 
{BLKT{RVS}{ 5 SPAZl}Ul{ 5 SPAZI}" 

: rem 1 1 2 

10100 PRINT" { RED } { 2 -}{ 4 SPAZI} 

{ 2 _- } { 2 SPAZI}! 4 - } { 4 SPAZ I } - J 
KUK { ■ 2 SPAZI} {BLK} {RVS} { 5 SPAZI - } - 
1 2 { 5 SPAZI}" : rem 53 

10110 PRINT" {RED} { 2 -}{ 4 SPAZI} 



{ 2 -} { 2 SPAZI}! 4 -} { 

4 SPAZI} 

-U 


I JI { - 2 SPAZI} {BLK} {RVS} { 

5 SPAZlJj 


K{ 5 SPAZI} " 

: rem 

T 3 

1 01 20 

PRINT" { RED } -J{ 3 *}l-J{ 

2 



{ 2 -}J{ 3 *TT{ 2 -}JIJI 

11 : rem 

240 

1 01 30 

print’Tred} j! 4 *Tkj{ 4 

* } K J 



{ 4 * } K JK J*K" 

rem 

1 39 

1 01 40 

PRINT" { 2 GIU'}" 

: rem 

233 

1 01 50 

PRINT" { 24 SPAZI} {BLU} {RVS}U 



{ 3 *}I" 

: rem 

21 5 

1 01 60 

PRINT"! 24 SPAZI} {BLU} {RVS}- 



{ 3 SPAZI}-" 

: rem 

1 80 

1 01 70 

PRINT" { 24 SPAZI} {BLU} {RVS}-UI - 



[<5>]{ 3 SPAZI }[<*>] £[<* 

>]£{<*>] 



£[<*>]" 

r rem 

98 

1 01 80 

PRINT" { 24 SPAZI} {BLU} {RVS}-JK - 



[<5>] { 9 SPAZI} {OFF}£" 

: rem 

30 

1 01 90 

PRINT" { 24 SPAZI} {BLU} {RVS}- 



{ 3 SPAZI}-" 

: rem 

1 83 

1 0200 

PRINT" { 24 ■ SPAZI} {BLU} {RVS} J 



{ 3 * }K" 

: rem 

202 

1 0300 

RETURN 

: rem 

21 2 


"Disk lock” 

versione per VIC 20 

5 GOSUBl 0000 : rem 166 

1 0 OPENl 5,8,1 5: PRINT#! 5 , " I 0 " : OPEN2 ,8,2,"# 
" : r erti 2 7 

2 0 PRINT#! 5, "Ul : " ; 2 ; 0 ; 1 8;0:GOSUBl 000 

: rem 1 0 

30 PRINT# 1 5,"B-Pr";2;2 : rem 188 

40 PRI NT " { HOME } { 14 GIU' } {RVS}P{OFF}ROTEG 
Gl O {RVS}S{OFF} PROTEGGI" : rem 22 6 
45 GETA$ : IFA$="S"THENPRINT"S" : GOTO70 

: rem 221 

50 I FA$ < > " P "THEN4 5 : rem 255 

55 PRINT"P" : rem 139 

60 PRINT#2 ,CHR$ (1 ) ; :GOSUBl OOOrGOTOl 00 

: rem 1 77 

70 PRINT#2,CHR$ (65) ; :GOSUBl 000 :rem 232 
80 PRINT#! 5 , "M-W" ; CHR$ (1 ) ;CHR$ (1 ) ;CHR$ (1 ) 
;CHR$(65) :rem 241 

90 PRINT#1 5, "M-W" ; CHR$ (2) ;CHR$ (7) ;CHR$ ( 1 ) 
; CHR$ (65) : rem 249 

1 00 PRINT#! 5,"U2:";2;0;1 8;0 rGOSUBl 000 

rrem 58 

1 1 0 CLOSE2 : PRINT# 1 5 , " 1 0" : CLOSEl 5 :FORQ= 1 TO 


2 0 0 0 r NEXT r RUN 

; rem 

1 1 8 

1 000 

INPUT#1 5 , EN , EM$ , ET , ES 

: rem 

4 

1 01 0 

IFENTHENPRINT" {HOME} { 1 8 

GIU 1 } "EN 

n ti 
f 


ET" , "ES r PRINT" {GIU 1 }"EM$ 

: rem 

1 59 

1 020 

RETURN 

: rem 

163 

1 0000 

PRINT" {CLR} " r POKE36879, 

24 :rem 

97 

1 001 0 

PRINT" { 14 SPAZI} {RVS} {BLK} 



{ 7 SPAZI}" 

: rem 

1 01 


10020 PRINT" {RVS} {RED} {DES} [<*>][<K>] 
{OFF} [<K>] {RVS} [<@>] [<K>] £{OFF} 

£{ 4 SPAZI} {RVS} {BLK} {OFFT{PUR} 
[<+>] {RVS} {BLK} { 4 SPAZI}" 

rrem 21 

10030 PRINT" {RVS} {RED} {DES} [<M>] [<K>] 

{OFF} [<K>] {RVS} { 2 SPAZI} [<K>] 
[<*>]{ 4 DES } { BLK } { 7 SPAZI}" 

rrem 33 

10040 PRINT" {RVS} {RED} {DES} { 2 SPAZI} 

[<K>] {OFF} [<K>] {RVS} [<T>] [<K>] 

{OFF} [<*>] {RVS} { 4 DES} {BLK} 

{ 2 SPAZ I } U* I { 2 SPAZI}" rrem 32 
10050 PRINT" { 14 SPAZI} {RVS} {BLK} 

{ 2 SPAZ I } -W- { 2 SPAZI}" rrem 250 
10060 PRINT" {RVSjlRED} { 2 DES} {DES}[<K>] 
{OFF} [<K>] {RVS} { 2 SPAZI} [<K>]£ 
{OFF}£{ 2 SPAZI} {RVS} {BLK} 

{ 2 SPAZI} J*K{ 2 SPAZI}" rrem 175 

10070 PRINT" {RVS } {RED} { 2 DES} {DES}[<K>] 
-{OFF} [<K>] {RVS} M<K>] [<*>] 

T 2 DES } { BLK } { 3 SPAZI} [<I>] 

{ 3 SPAZI}" rrem 189 

10080 PRINT" {RVS} {RED} { 2 DES} { 2 SPAZI} 

[<K>] {OFF} [<K>] {RVS} { 2 SPAZI} 

[<K>] {OFF} [<*>] {RVS} { 2 DES} {BLK} 

{ 3 SPAZI} {DES} { 3 SPAZI } " r rem 35 
10090 PRINT" { 14 SPAZI} {RVS} {BLK} 

{ 3 SPAZI} {OFF} [<I>] {RVS} 

{ 3 SPAZI}" rrem 179 

10100 PRINT" {HOME}"; rrem 17 

10300 RETURN rrem 212 


20 - SUPERC16® 1/86 



*v *>.; f , v 


di M. Cristuib Grizzi 


Come utilizzare 
Tinterfaccia 

RS-232 



Il VIC 20 ed il Rlus/4 sono dotati 
di interfaccia RS-232, apparato 
conosciuto da tutti almeno di 
nome, ma di cui in genere si sa 
ben poco, anche per le carenze 
del manuale di istruzioni che ac- 
compagna la macchina. 


L f interfaccia RS-232 dei computer 
Commodore non segue, anche se 
per piccoli dettagli, il vero e proprio 
standard RS-232 ed è quindi da consi- 
derarsi una pseudo RS-232. La diffe- 
renza rispetto allo standard sta nel livel- 
lo di tensione in uscita, che oscilla nei 
Commodore da OV a +5V, mentre lo 
standard prevede un intervallo di ten- 
sione tra -12V a +12V. 

Tale differenza, se si desidera effettua- 
re un collegamento con un apparato 
esterno diverso da un altro computer 
Commodore, impone l’utilizzo di appo- 
site cartucce, che ripristinano i livelli di 
tensione in conformità ai valori stan- 
dard. La più comune di queste cartucce 
è prodotta dalla stessa Commodore, ed 
è denominata VIC-1011A. 

L’utilizzo più classico della RS-232 è 
infatti il collegamento con stampanti 
non Commodore (noi ad esempio utiliz- 
ziamo la cartuccia di cui sopra per rea- 
lizzare i listati della rivista attraverso 
una grossa stampante Diablo 630), op- 
pure con dei modem, o ancora dirètta- 
mente con altri computer per il trasferi- 
mento di dati o programmi. 

La RS-232 è un’interfaccia seriale : ciò 
significa che i bit (sia che costituiscano 
dati o programmi) vengono trasmessi o 
ricevuti sequenzialmente, uno dopo l’al- 
tro; un byte verrà quindi trasmesso co- 
me otto bit in sequenza. Le interfacce 
parallele , al contrario, trasmettono un 
byte (otto bit) alla volta, e sono quindi 
in genere molto più veloci delle seriali. 
Un termine che si incontra quasi sempre 
quando si parla di trasmissioni è buffer : 
il più noto tra i buffer esistenti nei com- 


puter Commodore è senz’altro il buffer 
del registratore a cassette, che imma- 
gazzina i gruppi di byte da trasferire dal 
o al registratore. Il meno noto è sicura- 
mente quello dell’interfaccia RS-232, 
che non è permanente come quello del 
registratore, ma viene automaticamen- 
te allocato in memoria soltanto nel mo- 
mento dell’apertura di un canale di co- 
municazione RS-232. 

Un canale di comunicazione RS-232 si 
apre con la consueta istruzione OPEN, 


ma con una sequenza di parametri un 
po’ diversa dal solito: 

OPEN f,p,s,CHR$(con)+CHR$(com) 

dove i parametri hanno i seguenti signi- 
ficati: 

f: numero del file logico, che può assu- 
mere valori da 1 a 255. Valori compresi 
tra 128 e 255 provocheranno tuttavia 
l’aggiunta di un linefeed , cioè di un 
CHR$(10), dopo ogni CHR$(13), che 
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rappresenta un carattere di RETURN. 
Il carattere di linefeed viene a volte ri- 
chiesto dopo un RETURN da certe 
stampanti che non fanno avanzare di 
uno spazio la carta dopo ogni fine linea. 

p: numero di periferica. L’interfaccia 
RS-232 viene trattata dal computer co- 
me una periferica a sé stante, e il suo 
numero caratteristico, assegnato dal Si- 
stema Operativo, è 2. Il parametro p 
dovrà perciò sempre avere il valore 2. 

s: indirizzo secondario. Nel caso dell’in- 
terfaccia RS-232 non è significativo, e 
vale perciò 0. 

CHR$(con): carattere di controllo. 
Questo parametro definisce importanti 
fattori, come numero dei bit di stop , lun- 
ghezza della parola, e baud rate , che 
definisce la velocità di trasmissione. 
Questi tre parametri di solito spaventa- 
no l'utente, mentre in realtà in essi non 
vi è proprio nulla di complicato: l’unica 
cosa veramente importante è che essi 
siano regolati nello stesso modo sia nel- 
l’unità in trasmissione che nell’unità in 
ricezione. Vedremo più avanti come de- 
terminare il valore da assegnare al ca- 
rattere di controllo. 

CHR$(com) : carattere di comando (è 
tuttavia opzionale). Similmente a quan- 
to effettuato dal carattere di controllo, 
questo parametro definisce parità , full 

0 half duplex e handshaking. Il metodo 
di determinazione di questi valori sarà 
analizzato più avanti. 

Alcuni esempi di istruzioni di apertura 
di un canale RS-232 sono: 

0PEN1,2,0,CHR$(6)+CHR$(16) 

0PEN2,2,0,CHR$(166) 

OPEN 130,2,0,CHR$( 166) 

1 dati si ricevono o si trasmettono trami- 
te RS-232 esattamente come si fa abi- 
tualmente con i file sequenziali: per rice- 
vere si usa l’istruzione GET # , mentre 
per trasmettere si usa la PRINT # . Alla 
fine della comunicazione si chiuderà il 
canale con la consueta CLOSE f. 

Il semplice comando: 

0PEN1,2,0,CHR$(6):CMD1:L1ST 

seguito, alla ricomparsa del cursore, da: 

PRINT# l:CLOSEl 

invia su RS-232 il listato del programma 
che si trova in memoria, ed è - tranne 
che per la forma della OPEN - assoluta- 
mente analogo al comando che si usa 
per effettuare un listato su stampante, 
nastro o disco. 

Il carattere di controllo 

Come abbiamo detto, il carattere di 
controllo definisce rispettivamente bit 
di stop, lunghezza della parola e baud 
rate. I (o il) bit di stop servono per aiuta- 
re l’unità ricevente a stabilire quando è 
arrivata la fine di un carattere trasmes- 
so (ricordate che ogni carattere viene 
inviato come sequenza di bit); è possibi- 


le usare uno o due bit di stop. 

Il carattere di controllo, come del resto 
qualsiasi altro carattere ASCII Commo- 
dore, è composto da otto bit. Immagi- 
nandolo con tutti i bit posti a zero, esso 
avrà la seguente forma: 

bit 7 6 5 4 3 2 1 0 

carattere di 

controllo 0000000 0 

Il numero di bit di stop dipende dal valo- 
re che decidiamo di assegnare al bit 7 
del carattere di controllo: se lo poniamo 
a uno, ci saranno due bit di stop, mentre 
se lo poniamo a zero ce ne sarà uno so- 
lo. 

La lunghezza della parola stabilisce in- 
vece quanti bit devono essere trasmessi 
per ogni carattere, e può assumere va- 
lori compresi tra cinque e otto bit per 
carattere, anche se quasi sempre viene 
usata di otto bit. La lunghezza della pa- 
rola è definita dal valore assunto dai bit 
6 e 5 del carattere di controllo, secondo 


la seguente 

bit 6 

tabella: 

5 

lunghezza 

0 

0 

della parola 

8 bit 

0 

1 

7 bit 

1 

0 

6 bit 

1 

1 

5 bit 


Se volessimo ad esempio definire 2 bit 
di stop con una lunghezza della parola 
di sette bit, il carattere di controllo ini- 
zierà ad assumere la forma: 

bit 7 6 5 4 3 2 1 0 

carattere di 

controllo 10100000 

dove abbiamo posto il bit 7 a 1 (2 bit 
di stop), e i bit 6 e 5 rispettivamente a 
0 ed 1 (lunghezza della parola di sette 
bit). 

Il baud rate stabilisce, come detto, la 
velocità di trasmissione. Quasi sempre 
vengono usati valori di 300 o 1200 
baud, equivalenti rispettivamente a cir- 
ca 30 caratteri al secondo e circa 120 
caratteri al secondo. Il baud rate si re- 
gola attraverso i bit 3, 2, 1 e 0 del 
carattere di controllo, secondo la se- 


guente tabella: 

bit 3 2 

1 

0 

baud rate 

0 

0 

0 

1 

50 

0 

0 

1 

0 

75 

0 

0 

1 

1 

110 

0 

1 

0 

0 

134.5 

0 

1 

0 

1 

150 

0 

1 

1 

0 

300 

0 

1 

1 

1 

600 

1 

0 

0 

0 

1200 

Ritornando 

all’esempio precedente, se 


desiderassimo definire 2 bit di stop, lun- 
ghezza della parola di sette bit e veloci- 
tà di trasmissione di 300 baud, il carat- 
tere di controllo assumerà la forma: 

bit 7 6 5 4 3 2 1 0 

carattere di 

controllo 10100110 

Come avrete notato, il bit 4 del caratte- 


re di controllo non viene usato, e rimane 
quindi sempre a zero. 

Non resterà ora altro che convertire il 
valore ottenuto - 10100110 - da base 
binaria in base decimale. Dal momento 
che disponiamo di un computer, dele- 
ghiamo ad esso questo “ingrato” compi- 
to, attraverso il seguente programmi- 
no: 

10 INPUT" VALORE BINARIO" ;R$ 

2 0 IFLEN ( R$ ) OSTHENl 0 
30 FORI =0TO7 : A=VAL (MID$ (R$ , L 
EN(R$)-I,1) ) 

40 E=B+A* 2 ! I : NEXT * 

50 PRINT" VALORE DECIMALE: ";B 
60 END 


Otterremo il valore decimale 166: il re- 
gistro di controllo verrà quindi inserito 
nell’istruzione OPEN come CHR$ 
(166). 

Un altro valore in genere molto usato 
del carattere di controllo è CHR$(6), 
che corrisponde a 1 bit di stop, lunghez- 
za della parola di 8 bit e 300 baud. 


Il carattere di comando 


Mentre il carattere di controllo regola 
bit di stop, lunghezza della parola e 
baud rate, il carattere di comando rego- 
la parità, half o full duplex e handsha- 
king. 

La parità viene usata per il controllo 
degli errori eventualmente verificatisi 
durante la trasmissione, in genere dovu- 
ti a dispersioni o interferenze sulla linea 
(sia essa una linea telefonica oppure un 
semplice cavo seriale). 

Se si decide di utilizzare il controllo di 
parità (esso infatti, come tutti i parame- 
tri regolati dal carattere di comando, è 
opzionale), si può scegliere tra parità 
pari e parità dispari. Le due cose sono 
assolutamente equivalenti, e l’unico fat- 
tore importante è che entrambe le unità 
in comunicazione siano regolate sullo 
stesso tipo di parità. 

I bit 7, 6 e 5 del carattere di comando 
definiscono il valore della parità secon- 
do il seguente schema: 


bit 7 

0 

0 

0 


6 

0 

0 

1 


5 parità 

0 . nessuna 

1 dispari 

1 pari 


Quando si usa una lunghezza della pa- 
rola di otto bit, l’opzione di parità non 
è tuttavia disponibile ed occorre quindi 
porre a zero i bit 7, 6 e 5 del carattere 
di comando (nessuna parità). 
Supponendo invece di scegliere una pa- 
rità dispari, il carattere di comando as- 
sumerà la forma: 


bit 7 6 5 4 3 2 1 0 

carattere di 

comando 00100000 


Il tipo di duplex indica se entrambe le 
unità in collegamento possono trasmet- 
tere simultaneamente (full duplex), op- 
pure se la trasmissione deve avvenire 
da parte di un’unità alla volta (half du- 
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plex). Il valore senz’altro generalmente 
più usato è il full duplex, tuttavia anche 
qui è importante che entrambe le unità 
siano regolate allo stesso modo; o en- 
trambe sul full duplex, oppure entram- 
be su half duplex. 

Il bit 4 del carattere di comando regola 
il tipo di duplex; 

bit 4 duplex 

0 full 

1 half 

L’handshaking è regolato dal bit 0 del 
carattere di comando e indica come le 
unità riceventi e trasmittenti riconosco- 
no e stabiliscono la comunicazione tra 
di esse (protocollo di comunicazione). 
Per la maggior parte dei casi si usa un 
valore 0 per questo bit. 

Volendo regolare parità dispari e half 
duplex, il carattere di comando avrà la 
forma; 

bit 7 6 5 4 3 2 1 0 

carattere di 

comando 001 10000 

I bit 3, 2 e 1 del carattere di comando 
non sono usati e vanno quindi lasciati a 
zero. Con il precedente programmino 
potremo convertire in decimale anche 
questo valore, ottenendo per l’ultimo 
esempio un CHR$(48). 

La sintassi per l’apertura di un canale 
RS-232 dotato di 2 bit di stop, lunghez- 
za della parola di 7 bit, 300 baud, parità 
dispari ed half duplex sarà dunque: 

0PEN1,2,0,CHR$(166)+CHR$(48) 

Come avete visto, il carattere di coman- 
do non è così importante come il carat- 
tere di controllo, e viene infatti quasi 
sempre omesso per la maggior parte 
degli scopi. 

II controllo degli errori 

Quando viene eseguita una OPEN sulla 
RS-232, come detto viene allocato in 
memoria un buffer di comunicazione, 
lungo 512 byte (256 byte per l’INPUT 
e 256 byte per l’OUTPUT). 

Viene inoltre eseguito automaticamente 
un CLR, che cancella il contenuto di 
tutte le variabili, chiude tutti i file aperti 
e fa “dimenticare” al computer la linea 
di ritorno di un’istruzione RETURN 
eventualmente incontrata dopo la 
OPEN. Per questo motivo un canale 
RS-232 non deve mai venire aperto in 
una subroutine, oppure dopo che siano 
stati dimensionati vettori o matrici o as- 
segnate variabili importanti: è sempre 
opportuno aprire il canale RS-232 con 
la prima linea del programma. 

Anche la CLOSE di un canale RS-232 
provoca un analogo CLR, e deve quindi 
preferibilmente essere usata come ulti- 
ma istruzione del programma. 

Come ben sa chi utilizza abitualmente i 
file sequenziali su nastro o disco, la 
variabile riservata ST (STatus) control- 
la lo stato del canale di comunicazione. 
Nel caso della RS-232 essa assume tut- 
tavia dei significati diversi dal solito: in 



particolare i suoi bit 0, 1 e 2 indicano 
tre diversi tipi di errore: 


bit O 

0 

1 

0 

0 


1 

0 

0 

1 

0 


2 tipo errore 

0 tutto OK 

0 err. parità 

0 err. pacchetto 

1 err. overflow 


Ovviamente, gli errori possono verifi- 
carsi contemporaneamente: ad esem- 
pio, se i bit 0 e 2 sono entrambi a 1, si 
sono verificati un errore di parità e un 
overflow nel buffer dell’unità riceven- 
te. 

Un errore di parità si verifica se un cer- 
to bit ha un valore non congruente con 
il controllo di parità (interferenze sulla 
linea). Si ricordi di non considerare si- 
gnificativo questo bit, se si utilizza una 
lunghezza della parola di otto bit. 

Un errore di pacchetto si verifica quan- 
do l’unità ricevente ha problemi nel ri- 
cevere un “pacchetto” di bit indicante 
un carattere. 

Un errore di overflow, infine, indica che 
il buffer di INPUT dell’unità ricevente 
è pieno (256 byte) e viene ricevuto il 
257esimo carattere prima che il pro- 
gramma di comunicazione abbia iniziato 
a svuotare il buffer. Ciò accade tipica- 
mente quando il programma - general- 
mente in BASIC - è troppo lento nella 
sua esecuzione rispetto alla velocità di 
trasmissione selezionata: i dati arrivano 
più in fretta di quanto il programma sia 
in grado di processarli. Questi bit della 
variabile riservata ST si possono con- 
trollare da BASIC attraverso un AND 
logico; ad esempio: 


IFST ANDl THE NP RI NT "ERR. PARITÀ 1 " 


IFST AND2THENPRINT"ERR. PACCHETTO" 
IFST AND 4 THENPRI NT" ERR . OVERFLOW" 

Si noti lo spazio tra ST e AND, dovuto 
ad un “bug” nell’interprete BASIC, che 
segnala un “SYNTAX ERROR” nel ca- 
so tale spazio sia assente. 

Infine, un’ultima nota per quanto con- 
cerne la variabile ST: essa viene posta 
a zero dal computer dopo l’esecuzione 
di un’istruzione di INPUT/OUTPUT co- 
me GET # o PRINT # . Il solito truc- 
cherò per aggirare questo inconvenien- 
te è definire una variabile di lavoro 
uguale alla ST: 

S=ST:GET # 1,A$:IFSAND1THEN... 

Pensiamo con ciò di aver esaurito 
l’aspetto pratico dell’utilizzo dell’inter- 
faccia RS-232: con la sempre maggiore 
diffusione di periferiche come i modem, 
non guasta infatti iniziare a prendere un 
po’ di confidenza con questa poco cono- 
sciuta caratteristica del nostro compu- 
ter. 

Il programmino presentato in fondo al- 
l’articolo permette di inviare a un’unità 
ricevente (modem, stampante, altro 
computer...) un file sequenziale su di- 
sco. Esso richiede tutti i parametri di 
comunicazione analizzati nell’articolo, 
quindi calcola e visualizza i caratteri di 
controllo e di comando per la OPEN. 
Richiederà quindi il nome del file se- 
quenziale (che può essere un testo di 
un word processor, un listato di un pro- 
gramma BASIC, un file dati, ecc...) e 
inizierà a trasmetterlo su RS-232, visua- 
lizzandolo contemporaneamente su vi- 
deo. Il progr imma funziona su VIC 20 
e Plus/4. 
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Invio di file sa RS-232 per VIC 20 e Plus/4 


10 INPUT" {CLRjBIT DI STOP{ 2 SPAZlJl 

{ 3 SIN} " ; A$ : IFA$="1 "THENR$="0" : GOTO30 




: rem 

46 

20 

R$ = " 1 " 

: rem 

138 

30 

INPUT"LUNGH . PAROLA { 2 SPAZI }7 

{ 3 SIN} 


";A$ : IFA$ = "7"THENR$ = R$+"01 " 

: rem 

94 

40 

I F A$ = " 8 " THENR$ = R$ + " 0 0 " 

: rem 

56 

50 

I F A$ = " 6 " THENR$ = R$ + " 1 0" 

: rem 

56 

60 

I F A$ = " 5 "THENR$ = R$ + " 1 1 " 

: rem 

57 

70 

R$=R$+"0" 

: rem 

47 

80 

INPUT"BAUD RATE { 3 SPAZI}300{ 

5 SIN 

} 


B 

: rem 

165 

90 

IFB = 300THENR$ = R$ + "01 1 0" 

: rem 

147 

1 00 

IFB = 1 200 THEN R$ = R$ + " 1 000" 

: rem 

234 

no 

IFB=2400THENR$=R$+"1 01 0" 

: rem 

239 

1 20 

IFB< > 3 00ANDBO 1 200ANDB0 2400THEN80 

: rem 

1 75 


1 30 B = 0 : FORI = 0TO7 : A=VAL (MI D$ (R$ ,LEN (R$) -I 
,1)): B=B+A*2tI :NEXT -rem 45 

1 40 Wl $=CHR$ (B) : PRINT" {GIU ' }CHR$ ("B") 

{GIU 1 } " : rem 23 

1 50 R$ = " " ; PRINT"PARITA ' ( 1 -NO/2-DISP/3-PAR 
I ) : " : INPUT" { 2 SPAZI}! { 3 SIN}";P 

:rem 32 

160 IFP=1 THENR$ = "000" : rem 154 

170 IFP = 2THENR$ = "001 " : rem 157 

180 IFP=3THENR$="01 1 " ; rem 160 

190 INPUT" 0 -FULL. D/ 1 -HALF. D { 2 SPAZl}0 
{ 3 SIN}";A: IFA=0THENR$ = R$ + "0 " : GOTO 2 1 
0 : rem 129 

200 R$ = R$ + " 1 " ; rem 91 


210 R$ =R$+"000 " : rem 187 

220 INPUT"HANDSHAKE (0-3/l-X){ 2 SPAZl}0 
{ 3 SIN}";A:I FA=0THENR$ = R$ + "0 " : G0T024 
0 :rem 175 

230 R$=R$+!'l" : rem 94 

240 B=0 :FORI=0TO7 : A=VAL(MID$ (R$ , LEN (R$ ) -I 


, 1 ) ) : B=B+A*2 1 1 : NEXT :rem 47 

250 W2$=CHR$ (B) : PRINT" { GIU ' }+CHR$ ("B") 



{GIU' } " 

: rem 

69 

251 

PRINT" {GIU' } PREMI UN TASTO" 

: rem 

37 

252 

GETA$ : IFA$ = " "THEN2 52 

: rem 

85 

300 

OPEN2 , 2 , 0 , Wl $+W2$ 

: rem 

97 

31 0 

OPENl 5, 8, 1 5,"I" 

: rem 

21 9 

320 

PRINTCHR$ ( 1 4) CHR$ (8) 

: rem 

99 

330 

PRINTCHR$ (147) CHR$ (17) CHR$ (17) "NOME F 


ILE": INPUT FI$ 

: rem 

149 

340 

OPEN3 »8,3,FI$ + ",S,R" 

: rem 

10 

350 

INPUT# 1 5 , EN , EM$ , ET, ES : IFENTHENPRINTEM 


$ :CLOSE3 :CLOSE2 sCLOSEl 5 :END 

: rem 

149 

360 

GET#3 , A$ : RS= ST : IFA$=" "THENPRINT 
E NON CORRETTO" : STOP :A$=CHR$ ( 0) 

"F IL 



: rem 

45 

370 

PRINTA$ ; : PRINT#2 , A$ ; 

: rem 

175 

380 

IFRS = 0THEN3 60 

: rem 

4 

390 

PRINT#2 ,CHR$ (A) ;CHR$ (0) 

: rem 

250 

400 

INPUT# 1 5, EN,EM$ , ET, ES : IFENTHENPRINTEM 


$ :CLOSE3 :CLOSE2 :CLOSEl 5 :END 

: rem 

145 

410 

CLOSEl 5 

:rem 

113 

420 

FORI=0TO255 : PRINT#2 ,CHR$ (0) ; 

: NEXT 




: rem 

240 

430 

PRINT"UN ALTRO FILE ?"; 

: rem 

39 

440 

GETA$ : IFA$ = " "THEN44 0 

: rem 

83 

450 

I F A$ = " S " THE NCLR : GOTO 3 3 0 

: rem 

122 

460 

CLOSE2 :END 

: rem 

83 
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In questo gioco impersonate un 
uomo alla ricerca della ricchez- 
za. Dopo lunghe indagini avete 
scoperto che una strega tiene 
nascosto nella sua dimora un te- 
soro di inestimabile valore. 

^enza pensarci due volte vi recate 
^ subito sul posto, e non appena la 
strega è uscita per la sua solita passeg- 
gia sulla scopa vi introducete furtiva- 
mente nella sua casa. Ma nella frenesia 
di impossessarvi del tesoro avete di- 
menticato che, come in tutte le case 


stregate che si rispettino, anche nella 
casa in cui vi trovate ci sono trabocchet- 
ti e pericoli di ogni genere. Non avendo 
portato con voi nessun attrezzo o mezzo 
di difesa, dovrete contare solo sulla vo- 
stra agilità nel correre e nel saltare. Riu- 
scirete a raggiungere il 17° piano per 
impossessarvi del tesoro, evitando gli 
ostacoli, prima che la strega ritorni? 

Le regole del gioco sono poche e sem- 
plici. Tutto ciò che dovete fare è... salta- 
re voragini, evitare lampadari che cado- 
no, scansare mostri e palle incantate e 
altro ancora! Per saltare nell’ultima di- 


rezione in cu vi siete mossi premete il 
pulsant4-di wjoco. Per passare al piano 
superiore, quando siete sotto la scala, 
muovete il joystick in su. Per spostarvi 
muovete il joystick orizzontalmente. An- 
che il tempo vi è nemico; infatti, avete 
solo nove minuti per raggiungere il tesoro 
prima che la strega vi scopra (in questo 
caso per voi sarà la fine). Se raggiunge- 
te il tesoro, il gioco riprende dairinizio, 
ma avrete un minuto di tempo in meno. 
HOUSE OF TERROR gira su VIC20 
con almeno 16 Kbyte di espansione e 
richiede l’uso del joystick. I tre prO- 
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grammi di seguito listati vanno digitati 
e salvati uno dopo l’altro sulla stessa 
cassetta, mantenendone l’ordine. È im- 
portante che non si dia il RUN a nessu- 
no dei tre programmi prima di averli 


salvati, pena l’autocancellazione. La se- 
conda e la terza parte del listato devono 
essere chiamate rispettivamente 
“HOUSE2” e “HOUSE3”. Se intendete 
utilizzare il disk drive, modificate la li- 


nea 60 del programma 1 e la linea 40 
del programma 2, come spiegato nelle 
REM. Non mi resta che augurarvi di 
diventare miliardari con il tesoro di 
HOUSE OF TERRORI 


House of terror per VIC 20 

Programma 1 


1 0 

rem* ************** 

: rem 

1 87 

20 

REM* HOUSE * 

: rem 

30 

30 

REM* OF TERROR * 

: rem 

14 

40 

REM* ************** 

: rem 

1 90 

50 

POKE43 , 1 : POKE44 , 32 : POKE 81 92, 

0 : POKE3686 


9,240: POKE36866 , 1 50 :POKE648, 30 


:rem 96 

60 A$="LO"+CHR$ ( 34) +"HOUSE2"+CHR$ (34) +" 

: D = 1 : REM D= 8 PER DISK DRIVE :rem 62 
70 PRINT" {CLR} { 2 GIU '} "A$D" { HOME POKE 
1 98, 5:POKE631 , 1 3 : POKE632 , 82 : POKE633 , 85 
: POKE634 , 78 : POKE635 , 1 3 :rem 151 

80 NEW / : rem 82 


Programma 2 

10 PRINT" {CLR} CARICAMENTO { 2 SPAZl}CARATT 
ERI" : FORT= 51 20TO5631 : P=PEEK (T+2 7648) : P 
OKET,PORP*2 :NEXT : rem 60 

20 F0RT=5632T061 43 : POKET, PEEK (T+27648) : NE 
XT : FORT =6 1 4 4T064 63 : READA : POKET , A : NEXT 

:rera 174 

30 FORT= 64 64 TO 7 1 67 : POKET, PEEK (T+27648 ) : NE 
XT :rem 137 

40 A$="LO"+CHR$ ( 34) +"HOUSE3 "+CHR$ (34) +" ," 
: D = 1 :REM D=8 PER DISK DRIVE : rem 61 
50 PRINT" {CLR} { 2 GIU ' } "A$D" { HOME } " ; : POKE 
1 98,5: POKE63 1 , 1 3 : POKE632 , 82 : POKE63 3 , 85 
: POKE634 ,78: POKE63 5 ,1 3 : rem 149 

60 NEW : rem 80 

70 DATA0, 0,234, 170, 234, 138, 142, 0,0, 0,1 51 , 

21 0.1 78. 1 46. 1 46.0. 64.0.64.80.64.80.64, 

0 :rem 106 

80 DATA0, 0,238, 72, 78, 72, 7 8, 0,0, 0,1 51 ,245, 

151 .148.148.0. 0.0.112.84.80.84.112.0 

: rem 222 

90 DATA2 55, 255, 255,255, 255,255, 255,255, 1 9 
5,255,255,195,195,255,255,1 95: rem 227 
100 DATA4, 14, 126, 126, 4, 14, 30, 62, 62, 62, 62, 
62, 1 2, 1 2, 60, 1 24, 32, 1 1 2, 1 26, 1 26, 32, 11 2 
,1 20,1 24 : rem 127 

1 1 0 DATAI 24,1 24,1 24,1 24,48,48,60,62,0,0,2 

8.62.65.62.28.0. 16.56.124.214.254.198 

,254,170 :rem 177 

120 DATAI 6, 1 6, 5 6, 124, 2 54, 2 54, 1 6, 0,0, 0,1 ,7 
,15,31 ,63,127,24,126,255,255,252,252, 
252,252 : rem 110 

1 30 DATA0, 0, 1 28,224,1 12,24,124,254,127,25 
5,255,241,252,241,252,241 :rem 202 
1 40 DATA24 8, 240,224,224,224,0,224,224,254 
,255,255,255,255,3,255,254 :rem 20 
150 DATAI 27,63,31 ,15, 7, 1,0, 0,224, 251 , 249, 
255,255,255,126,24,254,252,248,240,22 

4.128.0. 0 : rem 214 

1 60 DATA0, 56, 120,56,16,56,108,108,108,108 

,124,56,16,16,16,48 :rem 183 

170 DATA0, 56, 60, 56, 16, 56, 108, 108, 108, 108, 
124,56,16,16,16,24 :rem 133 


1 80 DATA0, 56, 1 86,186,146,186,254,124,124, 
124,124,56,40,40,40,40 :rem 76 

1 90 DATAI 24,1 30,1 24,0,0,56,56,56, 1 6, 1 86,2 
54,254,254,254,254,186 :rem 87 

200 DATA2 55, 2 55,255, 255, 2 55, 255, 2 55, 2 55,4 
0,40,40,40,0,0,0,0 :rem 112 

210 DATA0 ,7,15,31 ,63,127,255,128,0,255,25 
5,255,255,255,255,0 :rem 180 

220 DATA0, 252, 252,244,236, 21 2, 1 72,212,157 
,149,149,149,149,157,1 28, 255: rem 1 34 
230 DATA220, 84, 2 12, 148, 84, 92, 0,255, 172, 21 
2,172,212,168,208,160,192 :rem 226 


Programma 3 

10 DIMN1%(77) ,Dl % ( 77) , N2% (77) ,D2%(77) ,N3% 
(12) ,D3% ( 1 2) , N4% (5) ,D4%(5) ,N5(46) 

: rem 77 

20 FORT=0TO62 :READDl % (T) : NEXT:FORT=0TO77 : 

READD2% (T) :NEXT : rem 37 

30 FORT=0TO64 :READN1 % (T) : NEXT:FORT=0TO77 : 

READN2% (T) :NEXT : rem 60 

40 FORT=OTOl 2 : RE ADN 3% (T) ,D3% (T) : NEXT : FORT 
= 0TO5 : READN4% ( T) ,D4 % ( T) : NEXT :rem 220 
50 FORT=0TO46:READN5 (T) :NEXT:DEFFNA(Q) =IN 
T (RND ( 1 ) *Q) ' :rem .235 

60 V=36878:Vl =V-4 : V2=V-3 : V3=V-2 : V4=V- 1 :JJ 
= 371 54 : PA= JJ- 3 : PB=PA+1 :C%=30720 

:rem 185 

70 C$="{WHT} {RED} {CYN} {PUR} {GRN } {BLU} 

{YEL} {WHT}":FORT=0TO7:HI (T) =0:HI$ (T) =" 
{ 10 SPAZI} ":NEXT :rem 178 

80 SC=0 :T$="000900" : L%=1 :rem 224 

90 POKEV+1 , 8 : POKEV , 1 5 : POKEV-9 , 2 53 : S% = 1 :PR 
INT" {CLR} {RVS} {WHT}@AB"TAB (1 3) " { GRN } CD 
E" : IFL%=6THEN2600 :rem 224 

1 00 FORT=7702TO8 1 85STEP22 : POKET+C% , 6 : POKE 
T+C%+21 , 6 : POKET, 1 60 :POKET+21 ,160:NEXT 

:rem 235 

1 1 0 FORT=7702TO7723 : FORI=0TO4 62STEP1 54 :PO 
KET+C%+1 , 6 : POKET+ 1,160: NEXT : NEXT 

:rem 72 

1 20 FORT=7721 TO7809STEP22 :POKET+C%, 5:POKE 
T, 1 35 :NEXT : FORT=7 858T0794 6STEP22 

:rem 78 

1 30 POKET+C% , 5 : POKET, 1 3 5 : NEXT : FORT= 802 9TO 
81 1 7STEP22 :POKET+C%, 5: POKET, 1 35: NEXT 

:rem 75 

1 40 ONL%GOSUB2000 ,2100, 2200, 2300, 2400:1 FL 
%=1 THENGOSUB2 500 :TI$=" 000000" 

: rem 97 

1 50 PO%=81 43 :DS%=1 :S%=1 : POKEPO%+C% , 1 :POKE 
PO%- 22+C% , 1 :POKEPO%-22, 1 54:POKEPO%, 1 5 
5 :rem 46 

1 60 Jl %=PEEK (PA) : POKEJJ, 1 27 : J2% = PEEK (PB) : 
POKEJJ, 255 :F%=- ( ( Jl %AND32) =0) 

: rem 25 

1 70 UP%= ( ( Jl %AND4) =0) : LF%= ( (Jl % AND! 6) =0) : 

RG%=- ( (J2%ANDl 28) =0) : rem 236 

1 80 IFUP%ANDPEEK (PO%-44) =1 35THEN2700 

:rem 98 
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190 IFF%THEN2800 :rem 141 

200 D%=LF%+RG% : IFPEEK (PO%+D%) =1 60ORD%=0TH 
EN250 :rem 128 

210 DS%=D% : POKEPO%- 22 , 32 : POKEPOI , 32 : PO% =P 
0%+D% : P% =PEEK (PO% ) : PP%=PEEK (PO%-22) 

: rem 194 

220 POKEPO%- 22+C% , 1 :POKEPO%+C%, 1 :POKEPO%- 
22, 1 53+DS% :POKEPO% , 1 54+DS% :rem 105 
2 30 IFP%0 320RPP%0 320RPEEK (PO%+22) =32THE 
N2900 :rem 195 

240 POKEV3 , 200 : POKEV3 , 0 :rem 90 

250 IFPEEK (PO%+22) =32THEN2900 :rem 139 

255 PRINT" {HOME} "TAB ( 3) " {WHT} "SCTAB (16) " 

{ GRN } "TI$ : IFTI$ >=T$THEN3000 :rem 219 
2 60 0NLIG0T03 300, 3700,41 00,4500,4900,5300 

: rem 1 1 0 

270 PRINT" {CLR} {GRN} { 6 SPAZIjFINE GIOCO" 
: FORT=0TOl 2:POKEV2,N3% (T) :FORI=OTOD3% 
( T) : NEXT: NEXT : rem 171 

280 POKEV2 , 0:FORT=0TO2 500 : NEXT: H=9 

:rem 106 

2 90 FORT=7TOOSTEP- 1 : IFSOHI { T) THENH=T 

: r em 14 6 

300 NEXT: IFH=9THEN1 000 :rem 73 

310 IFH=7THEN330 : rem 164 

320 FORT= 7TOH+1 STEP-1 :HI (T) =HI (T-l ) :HI$ (T 
) =HI$ ( T- 1 ) : NEXT • : rem 104 

330 PRINT" {CLR} {WHT }SEI"H+1 "{SIN} [<V>] IN 
CLASSIFICA ! " : FORT=0TO5 : POKEV2 , N4% (T 
) : POKEV3 , N4% (T) : rem 58 

340 FORI = OTOD4% (T) : NEXT : NEXT: POKEV2 , 0 : POK 
EV3, 0: PRINT" { GRN } { 2 GIU'}DIGITA IL T 
UO NOME : { 2 GIU'} {WHT}" : rem 192 

350 HI$ (H) ="" : INPUTHI$ (H) : IFHI$ (H) =" "THEN 
HI$ (H) ="ANONIMO" : rem 38 

360 HI$ (H) =LEFT$ (HI$ (H) +" { 10 SPAZI}", 10) 

: HI (H) =SC : rem 69 

1000 PRINT" {CLR} {YEL} { 3 SPAZI} HOUSE OF 
{ 2 SPAZI }TERROR": PRINT" {GIU ' } {PUR} 

{ 6 SPAZI }CLASSIFICA{GIU' } " :FORT=OTO 
7 :rem 17 

1 01 0 H%=LEN (STR$ {HI (T) ) ) - 1 :H$=RIGHT$ (STR$ 
(HI (T) ) ,H%) • : rem 1 77 

1020 PRINTMID$ (C$,T+1 ,1)RIGHT$ ("000000000 
"+H$ , 9) " - "HI$ ( T) : NEXT: POKEV, 1 0 

: rem 228 

1025 PRI NT" { 2 GIU'} {GRN} { 6 SPAZl}PREMI 
FIRE"; :rem 183 

1030 X%=0:Y%=0:Dl%=Dl%(0) :D2%=D2%(0) 

: rem 4 5 

1 04 0 IFDl %<=0THENX%=X%+1 :Dl %=Dl % (X%) 


rem 21 0 


21 7 


1 050 IFD2%<=0THENY%=Y%+1 :D2%=D2% (Y%) 

: rem 

1 060 POKEV2 , Ni % (X%) :POKEV3,N2% (Y%) :Dl %=Dl 
%-l :D2%=D2%- 1 : IFD2% (X^) =-lTHENl 080 

: rem 1 35 

1 0 70 IF ( PEEK (PA) AND 3 2 ) OOTHENl 04 0 

: rem 1 33 

1 0 75 POKEV2 , 0 : POKEV3 , 0 : GOTO80 :rem 9 

1 080 POKEV2 , 0 : POKEV3 , 0 : FORT=0TO500 : IF ( PEE 
K (PA) AND32) O0THENNEXT: GOTOl 030 

:rem 236 

1 090 T= 50 0: NEXT :GOTO80 : rem 68 

2000 PRINT" {HOME} { 22 GIU'}{ 2 DES} 

{ 2 SPAZI} {DES} { 2 DES } { 2 SPAZI} 

{ 3 DES} {DES} {HOME}" : rem 52 

2010 PRINT" {HOME} { 7 GIU' } {RVS} {BLU} 

{ 5 DES } F { DES } FF { 2 DES}FF{ 2 DES } F 


21 00 
21 1 0 

21 1 1 

21 1 2 
21 20 

2200 

221 0 


{ DES }F" :M% = 8020:DI%=-1 : 1% = 1 : RETURN 

: rem 226 

FORT=OTO6 :LA% (T) =7883+T*2 :POKELA% (T) 
+C%, 7 :POKELA% (T) , 1 42 :NEXT : rem 121 
PRINT" {HOME} { 16 Gl U ’ } { RVS } { BLU } 

{ 4 DES } FFF { 5 DES } FFF" : Mi % =8 0 58 :M2% 
= 8066 : rem 112 

POKEMl %+C% , 6 : POKEMl %+C% + l , 6:POKEMl% + 
C%+2 , 6 : POKEM2%+C% , 6 : POKEM2%+C% + l , 6 

:rem 167 


POKEM2%+C% + 2 , 6 


: rem 


235 


2220 

2300 


2400 
241 0 


2420 

2430 

2440 
2500 
251 0 

2520 

2530 


2540 

2600 


261 0 


2620 


2630 


2640 

2645 

2650 


2660 


2670 


U1 %=7708:U2%=771 8 : Wl % = 7 862 : W2%=7872 : 
I % = 1 :DI%=-1 :Z% = 0: RETURN : rem 82 

FORT= 7 861 TO 7 8 7 1 :POKET, 32 : NEXT : FORT=8 
01 6TO8026:POKET, 32:NEXT : rem 14 

PRINT" {HOME} { 22 GIU’}{ 3 DES} 

{ 2 DES } { 2 SPAZI }{ 3 DES} { 2 DES} 

{ HOME }":Ml%=7872:Il%=-l :M2%=80! 9:12 
% = - 1 : r em 2 8 

RETURN : rem 166 

Bl%=8162:ll%=-1 :B2%=7994:I2%=1 :B3%=7 
997:13%=-! :B4%=7841 :I4%=-1 : RETURN 

: rem 242 

MI % = 81 62 :M2%=7835:M3% = 7854 :rem 93 

POKEMl %+C%, 2 : POKEMl %- 2 2+C% , 2 : POKEM2% 
+C%, 4 :POKEM2%-22+C%, 4 :POKEM3%+C%, 5 

: rem 1 71 

POKEM3%- 22+C% , 5:POKEMl%, 1 37:POKEM2%, 

1 39 : POKEM3% , 1 37 : POKEMl % - 2 2 , 1 36: POKEM 
2%- 22 , 1 38 : rem 104 

POKEM3%- 2 2 , 1 36:FA% (0) =7905:FA% ( 1 ) =79 
30 : FA% ( 2) =7 95 5 :FA% ( 3) =7 98 0 :FA% ( 4) =79 
39 : rem 1 04 

FORT=OTO4 : DF% (T) =22 :NEXT: Zi %=0 : Z2%=0 
: Z3% = 0 :RETURN : rem 19 

A%=230:B%=225: FORT=OTOl 000:NEXT 

: rem 53 

FORT= 1 T03 : POKEVl , A% : POKEV2 , A% :POKEV3 
, A% : FORI = 0 TO 7 0 : NEXT : POKEVl , 0 : POKEV2 , 
0 : POKEV3 , 0 : rem 17 

FORI=0TO50 : NEXT : NEXT : POKEVl , B% : POKEV 
2 , B% : POKEV3 , B% : FORT=0TOl 4 00 : NEXT 

: rem 175 

POKEVl , 0 : POKEV2 , 0 : POKEV3 ,0:1 FA% =2 30T 
HENA% = 22 8 : B% = 2 2 1 :FORT=OTOl 600 : NEXT: G 
0T02 51 0 : rem 89 

RETURN :rem 171 

FORT=0TO2 :FORI=0TO2 :POKE7726+C%+T*22 
+ 1,1 :POKE772 6+T*2 2 + l, 1 43+T* 3 + 1 : NEXT: 
NEXT : rem 103 

FORT=OTOl 0 :POKE7778+C%+T*21 , 2:POKE77 
7 9+C%+T*2 3 , 2 : POKE7778+T* 2 1 , 78 

: rem 235 

POKE7779+T* 2 3,77 : NEXT : FORT= 8 1 64T081 8 
5 : POKET+C% , 6 : POKET+C%- 154,6: POKET, 1 6 
0 :rem 161 

POKET- 1 54 , 1 60 : NEXT :FORT= 801 0TO81 64ST 
EP22 : POKET+C% , 6 : POKET+C%+21 , 6 : POKET, 
160 : rem 84 

POKET+21 , 1 60 : NEXT : FORT=0TOl :FORI = OTO 
2 :POKE7 96 9+C%+T*22 + 1 , 7 : rem 58 

POKE7 96 9+T* 2 2 + 1, 1 62+T* 3 + 1 : rem 117 

NEXT:NEXT: FORT=0TO2 :LA% (T) =8044+T*2 : 
POKELAI (T) +C%, 7 :POKELA% (T) , 1 42: NEXT: 
Z%=0 :rem 141 

FORT= 8 1 67T081 71 :POKET, 32 : NEXT : M% = 8 1 6 
9:11 %=1 :B%=81 53:I2%=-1 : FORT=8029TO81 
1 7STEP22 : rem 28 

POKET+C% , 5 : POKET, 1 35 : NEXT : GOTOl 50 

: rem 74 
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2700 

271 0 
2720 
2730 

2740 

2800 
281 0 

2820 

2830 

2840 

2845 

2850 

2855 

2860 

2865 

2870 

2875 

2880 

2900 

2905 
291 0 

2920 

2930 

2940 

2950 

2960 

2970 

3000 

301 0 
31 00 
3200 

321 0 


FORT=POlTOPOI- 1 1 OSTEP-22 :POKET, 32:NE 
XT : POKEPO%- 1 32+C% , 6 : POKEPOI- 1 32,160 

S%=S%+1 :IFSI=4THEN31 00 
IFSI=2ANDLl=6THEN3200 
POI=POI-l 54 :POKEPO%-22+C%, 1 :POKEPOl+ 
Cl, 1 :DS% = 1 : 1 FS % = 2 THENDS % = - 1 
POKEPO%- 22 , 1 53+DSI : POKEPO% , 1 54+DS% :P 
OKEV3 , 220 : POKEV3 , 0 : SC=SC+FNA (1000) :G 


rem 

87 

rem 

248 

rem 

236 

POKEPOI + 

rem 

1 89 


OTOl 60 


rem 


1 50 


IFPEEK (PO%-44) O320RPEEK (PO%-66) 032 
ORPEEK (POl+DSI ) =1 60THEN2 50 :rem 182 
POKEPO% , 32 : POKEPO%- 22 , 32 :POI=POl-22 : 
P%=PEEK (PO%) : PP%=PEEK (POI-22) 

: rem 91 

POKEPO%-2 2+C%, 1 : POKEPO%- 22 , 1 53+DS% :P 
OKEPO% , 1 54+DS% : IFPIO320RPPIO32THEN 
2 900 : r em 224 
Q% = 0 : rem 176 
IFPEEK (PO%+DS%) =1 60ORPEEK (PO%+DS%-22 
) =1 35THEN2865 :rem 127 
POKEPO%- 2 2,32: POKEPO% , 32 :PO%=PO%+DS% 
: P% = PEEK ( POI ) : PP%=PEEK (PO%-22) 

: rem 1 85 

POKEPO% +C %- 2 2 , 1 : POKEPO%+C% , 1 :POKEPO% 
-22,1 53+DS% : POKEPO% , 1 54+DSI :rem 1 64 
IFP%0 320RPP%0 32THEN2 900 :rem 246 
Q%=Q%+1 : IFQ%< 3THEN2840 :rem 0 
POKEPO%- 2 2,32: POKEPO% , 32 :PO%=PO%+22 : 
Pl=PEEK(POI) : PP%=PEEK (PO%-22) 

: rem 99 

POKEPO%+C%-22 , 1 : POKEPO%+C% , 1 :POKEPO% 
-22,1 53+DS% :POKEPO% , 1 54+DS% : rem 1 66 
IFP%0 320RPP%0 320RPEEK (PO%+22) =32TH 
EN2900 :rem 4 
POKEV3 , 200 : POKEV3 , 0 :GOT02 50 : rem 1 60 
FORT= 1 28TO2 5 5 : POKEV2 , T : POKEV3 , 383-T : 
FORI = OTOTSTEP1 0 : NEXT : NEXT : POKEV2 , 0 :P 
OKEV3 , 0 : rem 195 
POKEPO% , 32 :POKEPO%-22 , 32 :rem 163 
FORT=PO%TO7680STEP-22 :Pl %=PEEK (T-44) 

: P2%=PEEK (T-22) :P3% = PEEK(T) : rem 43 
CI %=PEEK (T-44+C%) : C2I=PEEK (T-22+CI) : 
C3%=PEEK (T+C%) : POKET-44+CI , 1 :POKET-2 
2+C% , 1 : rem 1 31 
POKET+C% , 1 : POKET-44 , 1 58 : POKET-22 , 1 59 
: POKET, 1 61 :FORI=0TO250 :NEXT: rem 129 
POKET-44 , Pi % : POKET-44 +C%,C1 % : POKET- 2 
2 , P2% : POKET-2 2+C% ,G2% : POKET, P3% :POKE 


T+C% , C3% 


rem 21 1 


NEXT: FORT=l 5TOl STEP- . 1 5 : POKEV , T: POKE 
Vi , 244 :POKEV2, 24 4:POKEV3, 244 : NEXT 

: rem 21 3 

FORT=l 5T01STEP-.1 5 : POKEV, T: POKEVl ,24 
1 : POKEV2 , 241 :POKEV3,241 : NEXT 

:rem 84 

POKEVl , 0 : POKEV2 , 0 : POKEV3 , 0 : POKEV , 1 5: 
GOTO270 :rem 220 

PRINT" {HOME} {WHT} IL TEMPO E' SCADUTO 
! " :F0RT=255T01 2 8 STEP- . 1 :POKEV2,T:P 
OKEV3 , T: NEXT : rem 22 

POKEV2 , 0 : POKEV3 , 0 : FORT= 0 TOl 50 0 : NEXT : 


GOTO270 


rem 


245 


SC=SC+FNA ( 1 000) : SC=SC+1 000*LI :Ll=Ll+ 
1 :GOTO90 :rem 250 
PO%=PO%-l 54 : FORT= 1 TOl 2:PO%=PO%-l :POK 
EPO%-22+C%, 1 : POKEPO%+C% , 1 : POKEPO%-22 
,152 : rem 228 
POKEPOI ,153: POKEV3 , 200 : POKEV3 , 0 : FORI 
= 0TO200 :NEXT : POKEPO% , 32 : POKEPOI- 22 , 3 


2 :NEXT 


rem 


135 


3220 


3230 


3235 

3240 


3250 

3260 

3270 

3300 

3400 

3500 

351 0 

3520 

3530 

3540 

3600 

3700 

3800 


381 0 
3820 


3830 

3840 


3850 

3860 

3870 

3880 


3885 
3890 
3900 
391 0 
3920 


POKEPOI- 22 , 1 52 : POKEPOI ,153: FORT=0TO4 
6 :POKEV3 , N5 ( T) - 1 000 * INT ( N5 ( T) /I 000) 

:rem 162 

POKEV 2 , INT (N5(T)/1000) : FORI=0TO250 :N 
EXT : NEXT : POKEV2 , 0 : POKEV3 , 0 : FORT=0TO2 
500 :NEXT :rem 98 

POKEPOI- 4 4+CI, 1 : rem 69 

FORT=l TO30: POKEPOI , 32 : POKEPOI-44 , 1 56 
:POKEPOI-22, 1 57:FORI = OTOl 00:NEXT 

:rem 203 

POKEPOI- 4 4,32: POKEPOI- 22,1 56: POKEPOI 
, 1 57 : POKEV3 , 200 : POKEV3 , 0 : FORI = OTOl 00 
: NEXT: NEXT ' :rem 90 

TI = VAL ( T$ ) : Tl=Tl- 1 00 : IFTK 1 00THENTI = 
1 00 : rem 21 7 

T$ = " 0 0 0 " +RI GHT$ ( STR$ ( Tl ) ,3) :Ll = l :SC= 
SC+1 0000 :GOTO90 :rem 109 

ONSIGOTO3400, 3500, 3600 :rem 196 

GOTOl 60 : rem 151 

DII=DII+II:IFII=1 THENPOKEMl+DI 1,32 :P 
OKEMI-DII , 32 :GOTO3520 :rem 109 

POKEMI+DII, 1 60 : POKEMl-DII , 1 60 

:rem 135 

IFDII=0THENPOKEMl, 32 : 11 = 1 :GOTO3540 

:rem 46 

IFDII=5THENPOKEMl+5, 1 60 : POKEMI- 5 , 1 60 
: I % =— 1 :rem 180 

GOTOl 60 :rem 156 

GOTOl 60 : rem 1 53 

ONSIGOTO3800, 3900, 4000 :rem 203 

IFMl 1 = 80 58THEND1 1 = 22 :POKEMl 1 , 1 60 :POK 
EMI 1+1 , 1 60 : POKEMI 1+2 , 1 60 :GOTO3 820 

: rem 22 3 

IFMl 1=81 68THEND1 l=-22 :rem 169 

IFM2I=8066THEND2I=22 :POKEM2l , 1 60 :POK 
EM2I + 1 , 1 60 : POKEM2I + 2 , 1 60 :GOTO3840 

:rem 231 

IFM2I=81 76THEND2l=-22 :rem 172 

Mi l=Ml l+Dl I :M2!=M2!+D2! : IFDl l=-22THE 
NPOKEMl 1,32: POKEMI 1 + 1 , 32 : POKEMI 1+2,3 
2 :GOTO3860 : rem 150 

POKEMI l+CI, 6: POKEMI 1 + 1 +CI , 6 : POKEMI I + 
2+CI , 6 : POKEMI 1 , 1 60 :POKEMl 1+1 , 1 60 :POK 
EMll+2,160 : rem 120 

IFD2l=-2 2THENPOKEM2l , 32 : POKEM2I+1 , 32 
:POKEM2!+2 ,32 :GOTO3880 :rem 151 

POKEM2I+CI , 6 : POKEM2I + 1 +CI , 6 : POKEM2I + 
2+CI , 6 : POKEM21 , 1 60 :POKEM2l+l , 1 60 :POK 
EM2!+2,160 :rem 128 

IFPOl- 22=Ml lORPOl-22=M2lORPOl-22=Ml I 
+10RP0I-22=M2I+10RP0I-22=M1 I+2THEN29 


00 

IFPOI-22=M2I+2THEN2900 
GOTOl 60 

IFZl=l THEN3920 
LAI=LA% ( FNA ( 7) ) :Z!=1 


rem 

rem 

rem 

rem 

rem 


0 

244 
1 64 
69 
67 


POKELAI , 32 : LAI=LAl+44 : POKELAl+CI , 7 : P 
OKELAI ,142: IFLAI=POI-22THEN2900 

: rem 164 

3930 IFPEEK (LAI +4 4) =1 60THENPOKELAI , 32 : POK 
ELAl-88 , 1 42:21=0 :rem 47 

GOTOl 60 :rem 160 

Dl!=DI! + II :IFII = 1 THEN4 0 1 0 :rem 151 

POKEUl l+DII*22 , 32 : POKEWl l-DII*22,32: 
POKEU2l+DLl*22 , 32 : POKEW2I^DII *22 , 32 : 
GOTO4020 :rem 18 

POKEUl l+CI+DII*22, 6: POKEWl l+CI-DI 1*2 
2, 6: POKEUl l+DII*22, 1 60 : POKEWl !-Dl!*2 
2,160 : rem 255 


3940 

4000 

4005 


401 0 
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4 01 5 POKEU2%+C%+DI % *22 , 6 : POKEW2I+CI-DI I *2 
2,6 :POKEU2%+DI%*22, 1 60 :POKEW2I^DII*2 
2,160 :rem 8 

4020 IFDI%=3THENI%=-1 :POKEUl%+66, 32:POKEU 
21+66,32: POKEW1 1-66, 32 :POKEW2l-66 , 32 



:GOTO4030 

: rem 

227 

4025 

IFDII=0THENII = 1 : POKEUl % , 

1 60 :POKEU2l , 


1 60 :P0KEW1 1, 1 60 :POKEW2l , 

1 6 0 : r em 

230 

4030 

GOTOl 60 

: rem 

1 51 

41 00 

ONSIGOTO4200, 4300, 4400 

: r em 

1 92 

4200 

GOTOl 60 

: rem 

1 50 


4300 POKEM2I, 32:IFPOI=M2l-22THENPOKEPOl-2 
2, 32 :POKEPO% , 32 : PO% =P0% + I2% : rem 24 6 
431 0 M2%=M2% + I2% :POKEM2%+C%, 3:POKEM2%, 1 60 

: rem 231 

4320 IFPOI=M2l-22THENPOKEPOI+CI, 1 :POKEPO% 
-22+C%, 1 : POKEPO%-22 , 1 53+DS% : POKEPO% , 
1 54+DS% : rem 1 46 

4330 IFM2%=801 6THENI2%=1 :GOTO4350 

: rem 1 33 

4340 IFM2I=8026THENI2I=-1 : rem 117 

4350 GOTO! 60 :rem 156 

44 00 Mi % =Ml % + 1 1 % : IF 1 1 % =- 1 THE NPO REMI % +C% , 6 
:POKEMl % , 1 60 :GOTO4420 :rem 26 

4410 POKEMl % , 32 :rem 44 

44 2 0 IFMl % = 7 86 2THEN1 1 % = 1 : POKEMl % , 32 :GOTC>4 
440 : rem 40 

4430 IFMl %=7872THENI1 %=~1 : POKEMl % , 1 60 

:rem 74 

4440 GOTOl 60 :rem 156 

4500 ONS%GOTO4600, 4700, 4800 : rem 208 

4600 Z% = 0 : rem 182 

4 610 POKEBl % , 32 :B1 %=Bl l + Il I : POKEBl %+C%, 4 : 
POKEtìl % , 81 : IFBl I =POlTHEN2 900 


4620 

: rem 

IFBl 1=81 4 3 THENIl 1=1 :GOTO4640 

1 22 

4630 

IFBl 1=81 62THENI 1 1 =- 1 

: rem 

: rem 

1 25 
1 07 

4640 

ZI = ZI + 1 : IFZK 2THEN461 0 

: rem 

21 


4650 GOTOl 60 : rem 159 

4 700 POKEB2% , 32 : B2I =B2I + 1 21 : POKEB2I+CI , 5: 
POKEB2% , 81 : IFB2l=POlTHEN2 900 

:rem 130 

4 71 0 POKEB3% , 32 : B3%=B3% + 1 3% : POKEB3%+C% , 2: 
POKEB3% ,81 : IFB3%=PO%THEN2900 

: rem 1 35 

4720 IFB2I=7989 THE N 1 2 % = 1 :GOTO4740 

: rem 14 6 

4730 IFB2% = 800 8THENI 2% = - 1 : rem 109 

4740 IFB3% = 7 98 9THENI 3% = 1 :GOTO4760 

: rem 152 

4750 IFB3% = 8 00 8THENI 3% = - 1 : rem 113 

4760 GOTOl 60 : rem 161 

4 800 POKEB4 I , 32 : B4 1 =B4I + I4 1 : POKEB4 l+CI , FN 
A ( 2) : POKEB4% , 81 : IFB4%=PO%THEN2900 

:rem 180 

4810 IFB4%=7835THENI4%=1 :GOTO4830 

:rem 140 

4820 IFB4% = 7 854THENI4% = - 1 : rem 121 

4830 GOTOl 60 :rem 159 

4900 ONS%GOTO5000, 51 00, 5200 : rem 197 

5000 IFZl %=0THENP1 %=Ml % : Zi % = 1 :GOTO5020 

:rem 184 

5010 POKEPl % , 32 : rem 44 

5020 P1%=P1%-1 : POKEPl l+C%, 7: POKEPl I, 1 40:1 
FPl l=POITHEN2 900 :rem 237 

5030 IFPEEK (PI %- 1 ) =1 60ORRND ( 1 ) < . 1THENZ1 1 = . 

0 : POKEPl % , 32 :rem 51 

504 0 GOTOl 60 : rem 153 

51 00 FORT=0TO4 :POKEFA% (T) , 32 :FA% (T) =FA% (T 
) +DF% (T) : POKEFA% (T) +CI, FNA (8) : POKEFA 
% (T) , 1 41 : rem 123 

51 1 0 IFFA% (T) =PO%ORFA% (T) =PO%- 2 2THEN2 900 

:rem 38 

51 20 IFPEEK (FA% (T) +DF% (T) ) =1 60THENDF% (T) = 

-DF% ( T) : rem 178 

5130 NEXT: GOTOl 60 :rem 18 

5200 IFZ2I=0THENP2I=M2I : Z2I=1 :GOTO5220 

:rem 192 

5210 POKEP2I ,32 :rem 47 

5220 P2%=P2%+1 :POKEP2%+C%, 7 :POKEP2% , 1 40:1 
FP2I=POITHEN2900 : rem 242 

52 30 IFPEEK ( P2 % + 1 ) =1 370RRND (1 ) < . 1THENZ2% = 

0 : POKEP2% ,32 :rem 58 

5240 IFZ3%=0THENP3%=M3% ; Z 3 % = 1 :GOTO5260 

:rem 204 

5250 POKEP3% , 32 :rem 52 

52 60 P3%=P3%- 1 : POKEP3%+C% , 7 : POKEP31 , 140:1 
FP3%=PO%THEN2900 :rem 253 

5270 IFPEEK (P3%- 1 ) =1 390RRND ( 1 ) < . 1 THENZ3%= 

0 : POKEP3% ,32 : rem 69 

5280 GOTOl 60 :rem 159 

5300 POKEMl, 32 : IFM%-22=PO%THENPOKEPO%-22 , 
32 :POKEPO% , 32 :PO%=PO%+Il % :rem 146 
5310 M%=M% + Il % :POKEM%+C%, 6 : POKEMl, 1 60 : IFP 
OIOMI-22THEN5330 : rem 38 

5320 POKEPOl - 2 2 +C 1,1 :POKEPOI+CI, 1 :POKEPOl 
-22,1 53+DSI : POKEPOl , 1 54+DSI : rem 1 59 
5330 IFMI = 81 67THENI1 1 = 1 :GOTO5350 : rem 91 
5340 IFMI = 81 71 THENIl l=-l : rem 68 

5350 IFZI=0THENZI=1 :LAl=LAl ( FNA ( 3) ) 

:rem 233 

5360 POKELAI , 32 :LAl=LAl+44 :POKELAl+CI, 7 :P 
OKELAl , 1 42:IFLA!=PO!-22THEN2900 

:rem 164 

5370 IFPEEK (LAI+44) =1 60THENZl=0 :POKELAl , 3 
2 : POKELAI- 88 , 1 42 : rem 47 

5380 POKEBl , 32:BI=BI+I2I : POKEBl +CI , FNA ( 2) 
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: POKEB% ,81 : IFB% =P0%THEN2 900 : rem 126 
5390 IFB%=81 43THENI2%=1 :G0T0541 0:rem 78 
5400 IFB% = 81 62THENI2%=-1 : rem 55 

5410 GOTOl 60 :rem 154 

5500 DATA8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,8, 8, 8, 
8, 8, 8, 8, 8, 8, 8, 8 :rem 24 

551 0 DATA8, 24, 8, 4, 8, 4, 4,4,8, 8, 8, 8, 8, 8,8,8 
, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8 :rem 255 

5520 DATA8 ,8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,-1 

:rem 244 

5530 DATA4 ,8,4,4,8,4,8,4,8,12,4,4,4,4,4,8 
,4,4,4,4,8,12,8,4,4,4,8,4,8,4,8,12 

: rem 112 

5540 DATA8 ,8, 8, 8, 8, 4, 8, 4, 4, 4, 8, 4, 4, 4, 8, 4, 
8,4,8,12,4,4,4,4,4,8,4,4,4,4 

:rem 87 

5550 DATA8 , 12,4,12,4,12,4,12,8,8,8,8,4,12 
,36,-1 : rem 27 

5560 DATAI 83 , 201 , 1 83 , 201 , 1 83 , 201 , 1 83 , 201 , 

175.201 .175.201 .175.201 .175.201 .183, 
201 : rem 129 

5 5 70 DATAI 83, 201 , 1 83 , 201 , 1 83 , 201 , 1 75, 1 00 , 

221.221.215.147.159.175.167.201.183, 
201 , 1 83 : rem 84 

55 80 DATA201 ,183, 201, 175, 201, 175, 201, 175, 

201 . 1 75. 201 . 1 95. 21 5. 1 99. 221 . 1 75. 201 , 
1 59,207 : rem 93 

5590 DATAI 83 , 207 , 1 67 , 201 , 1 75 , 201 , 1 75 , 201 , 

0 : r em 6 7 

5600 DATAI 00, 21 2, 201 , 207, 21 2, 201 , 21 2, 207, 

201. 183. 100. 187.1 91. 201. 20 7. 215. 201, 
207,201 :rem 35 

5610 DATA207, 21 5 , 207 , 1 00 , 21 2 , 20 1 , 207 , 21 2 , 

201 . 21 2. 207. 201 . 1 83. 100. 21 5. 207. 201 , 
191,191 : rem 42 

562 0 DATAI 91 , 1 47, 1 59, 1 75, 1 67, 21 2, 201 , 207, 
21 2, 201 , 21 2, 207, 201 , 1 83, 1 00, 1 87, 1 91 , 
201 , 207 : rem 7 8 

5630 DATA21 5 , 2 01 , 20 7 , 201 , 207 , 21 5 , 207 , 1 00 , 

1 95, 1 00, 1 99, 1 00, 21 5, 20 7, 201 , 1 83, 21 5 

:rem 182 

5640 DATAI 00 , 21 2 , 21 5 , 0 :rem 91 

5650 DATA21 7,400,21 3,400,223,400,227,200, 
234,200,230,400,227,200,234,200,230, 
400 :rem 91 

5660 DATA223, 400, 227, 400, 21 7,400,21 3,600 

: r em 211 

5670 . DATA21 5, 1 50 , 22 5 , 1 50 , 2 31 , 1 50 , 235 , 350 , 
231,150,235,350 :rem 233 

5680 DATA231 ,229, 231, 229, 231, 223, 228, 225, 
1 8321 9, 20 721 9, 21 9000,1 95, 207, 21 9, 1 59 
223,207223 :rem 28 

5690 DATA21 7, 207, 217, 223, 183225, 207225, 21 
9000, 207, 231 , 229, 231 , 229, 231 , 223, 228 
, 225 : rem 21 8 

5 70 0 DATAI 8321 9, 20721 9, 21 9000,1 95,207,21 9 
, 1 59223, 207223, 21 7000,207,225,223, 1 8 


321 9 

571 0 DATA20721 9,21 9000 
READY. 


: rem 
: rem 


244 
1 1 6 


:rem 173 




I 
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L O A 


di D. Smoak 

trad. e adatt. 

di F. Sarcina 



Con questo programma, usabile 
con tutte le stampanti a matrice 
di punti Commodore, potrete co- 
struirvi le vostre personalizzate 
scritte giganti. 


U tilizzate il vostro computer e la vo- 
stra stampante in maniera creativa 
con questo breve programma BASIC. 
SCRITTE GIGANTI è facile da usare; 
vi permette di selezionare la larghezza 
e l’altezza dei caratteri. Inoltre vi è la 
possibilità di utilizzare un set ridefinito 
di simboli, in cui potrete includere lette- 
re speciali o qualsiasi cosa vi passa per 
la testa. 

Uso dei menu 

Digitate l’opportuna versione del pro- 
gramma per il vostro computer. Dopo 
averne salvata una copia date il RUN 
e‘ assicuratevi che il numero di periferi- 
ca della vostra stampante sia il 4. A 
questo punto il programma vi domanda 
se volete usare il set di caratteri maiu- 
scolo-grafico, il maiuscolo-minuscolo o 
un set personale da voi precedentemen- 
te definito. Dopo aver effettuato la scel- 
ta vi si chiederà con quale carattere vo- 
lete che le lettere giganti vengano co- 
struite. Ora è il momento di inserire il 
messaggio che volete stampare; esso 
può avere la lunghezza di due righe di 
schermo. Dovete quindi impostare l’al- 
tezza delle vostre lettere, un numero fra 
1 e 9; scegliendo 1 otterrete delle lette- 
re alte 7 caratteri normali, con 2 le let- 
tere saranno alte 14 caratteri e via di 
seguito fino a 9, a cui corrispondono 63 
caratteri di altezza. Il successivo para- 
metro è la larghezza, che deve essere 
un numero compreso tra 1 e il prece- 
dente valore impostato per l’altezza. A 
questo punto inizia la stampa. 
Ricordate che, ovviamente, la velocità 
di stampa risulta essere proporzionale 
alla grandezza dei caratteri stampati: 
regolatevi quindi di conseguenza, se do- 
vete stampare molti messaggi. 


Modifiche al programma per il 
funzionamento con 1526 ed 
MPS-802 

Questo programma funzionerà senza il 
bisogno di alcuna modifica sulle stam- 
panti 1525, MPS-801 e MPS-803. Inve- 
ce su 1526 ed MPS-802 occorrerà fare 
i seguenti piccoli cambiamenti. Per pri- 
ma cosa aggiungere all’inizio del pro- 
gramma la seguente istruzione: 

1 OPEN6,4,6: PRINT # 6, CHR$ (27) 
: CLOSE6 

Ciò serve per modificare lo spazio fra 


una riga di stampa e la successiva, dimi- 
nuendolo di un po’. Se volete i caratteri 
ancora più ravvicinati, usate un numero 
inferiore a 27 nella funzione CHR$; vi- 
ceversa per spazi maggiori. 

L’ultima modifica è cambiare i CHR$ 
(8) in CHR$ (32) alle linee 360 e 390 
(o alle linee 340 e 370 nella versione 
per VIC20). 

Uso dei caratteri ridefiniti 

Per personalizzare ulteriormente le vo- 
stre scritte potete usare, come già det- 
to, un set di caratteri da voi precedente- 
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mente ridefinito. Se siete un program- 
matore sufficientemente esperto, la 
questione dovrebbe essere semplice 
per voi. Il metodo di ridefinizione viene 
comunque spiegato abbastanza esau- 
rientemente sulla Guida di Riferimento 


del vostro computer. Ricordatevi co- 
munque che il nuovo set di caratteri 
dovrà essere posizionato a partire da 
13312 per i possessori di Plus/4 e C16, 
mentre nel VIC può essere messo in 
qualunque zona di memoria che sicura- 


mente non viene "sporcata” dal pro- 
gramma o dalle sue variabili. In ambe- 
due le versioni, accertatevi di aver cari- 
cato in memoria il nuovo set prima di 
caricare e mandare in esecuzione 
SCRITTE GIGANTI. 


Scritte giganti per VIC 20 


100 POKE56 ,28:POKE55,0 :CLR : rem 11 

110 CC=0 : PRINT" {CLR } { BLK } { RVS } { 3 SPAZI} 
SCRITTE GIGANTI! 4 SPAZI } {OFF PRINT 
"{ 2 GIU 1 }PREMI UN TASTO:" :rem 138 
120 PRINT" { 2 GIU 1 } { RVS }U {OFF } «-PER SET MA 
IUSCOLO/ { 4 SPAZI }GRAFICO": PRINT" 

{ 2 GIU' }{RVS}L{OFF}-PER MAIUSCOLO/MI 
NU- { 3 SPAZI }SCOLO" : rem 171 

130 PRINT" { 2 GIU' } {RVS }C {OFF} -PER CARATT 
ERI PER- { 4 SPAZI JSONALI ZZATI 
{ 11 SPAZI } (RICORDATI I DATI!)" 

:rem 61 

140 GETCH$ : IFCH$= " "THENl 4 0 : rem 225 

1 50 IFCH$="U"THENCH=32768 : PRINTCHR? (142) : 

GOTO! 90 : rem 104 

160 IFCH$="L"THENCH=32768+2048 : PRINTCHR? ( 
1 4) :GOTO! 90 : rem 39 

170 IFCH$="C"THENF0RK=7424T07431 :POKEK,0: 
NEXT: POKE36869, 255 :CH=71 68: GOTO! 90 

:rem 42 

180 GOTO! 40 : rem 103 

190 PRINT" {CLR} {RVS} CARATTERE DI RIEMPI- 
{ 2 SPAZI }MENTO" :GOSUB490 - :rem 5 
200 PP$=MT$ : PRINT" {CLR} {RVS }QUAL E' IL ME 
SSAGGIO" : GOSUB 490:N$=MT$ : rem 224 

210 PRINT" {RVS} QUANTO ALTO { TI SPAZI} (DA 
1 A 9) " : INPUTTS: IFTS<1 THENTS=1. 

:rem 145 

220 PRINT" {RVS} QUANTO LARGO { 9 SPAZI} (DA 
1 A"TS" {SIN} ) " : INPUTWS : IFWS>TSORWS< 1 T 
HENWS= 1 : rem 9 5 

230 OPENl,4 :rem 88 

240 FORL=l TOLEN (N$ ) :rem 124 

250 A$=MID$ (N$,L,1) : PRINT" {RVS } {HOME } 

{ 10 GIU ' }STAMPA{OFF} "A$:IFA$=" "THE 

NGOSUB460 : GOTO 360 :rem 106 

260 Q=ASC ( A$ ) :Q=Q+(Q>63) *64+ (Q> 191) *64+ (Q 
=255)*33 :rem 68 

270 I=CH+Q*8 :rem 136 

280 FORJ=7TOOSTEP-1 : rem 172 

290 FORK=7TOOSTEP-1 : rem 174 

300 B=PEEK ( I+K) :rem 71 

31 0 IFBAND2 t JTHENFORT=l TOTS : PR$=PR$+PP$ : N 
EXTT : GOTO 3 30 :rem 252 

320 FORT=l TOTS : PR$=PR$+" " : NEXTT: rem 199 

330 NEXTK :rem 32 

340 FORX=lTOWS: PRI NT# 1 ,CHR$ (1 5) SPC ( (72-TS 
*8)/2)PR$CHR$ (8) :NEXTX : PR$="" 


410 

420 


430 

440 
450 
4 60 

470 

480 

490 

500 


GETY $ : I F Y $ = " " THEN 410 :rem 125 

I FY $ = " X " THENO PEN 1 ,4:PRINT#1 ,CHR$ (15): 
CLOSEl : POKE368 79 , 27 : PRINT" {CLR} " : END 

: rem 1 1 

IFY$="R"THENGOSUB470 : PRINT" {CLR}"N$ :G 
OTO230 :rem 216 

IFY$="N"THEN 1 1 0 :rem 52 

GOTO 41 0 : rem 103 

FORX= 1 T08*WS : PRINT# 1 ,CHR$ (8) : NEXT: RET 
URN :rem 90 

IFCC = 1 THENPOKE36869 , 255 :CC=0 : rem 1 29 

RETURN : rem 124 

POKEl 98,5: POKE631 , 5 : POKE63 2 , 34 : POKE63 
3,34: POKE634 , 20 : POKE635 ,144 :rem 194 

MT$="" : INPUTMT$: RETURN :rem 132 


Scritte giganti per C16-Plus/4 

1 00 POKE56 , 52: POKE55,0: CLR: CU= 65298: GOSUB 
520:SYS81 9:COLORO,2,5 : rem 249 

110 PRINT" {CLR} {BLK} {RVS} { 12 SPAZI }SCRIT 
TE GIGANTI { 13 SPAZI } {OFF } " :rem 75 
120 CC=0: PRINT" { 3 GIU'}PREMI UN TASTO:": 
PRINT" { 2 GIU' } {RVS }U {OFF} -PER SET MA 
IUSCOLO/GRAFICO" :rem 215 

130 PRINT" { 2 GIU' } { RVS } L { OF F } -PER MAIUSC 
OLO/MINUSCOLO" :rem 81 

140 PRINT" { 2 GIU' } {RVS }C {OFF} -PER CARATT 
ERI PERSONALIZZATI (I DATI { 2 SPAZI} 
DEVONO ESSERE MESSI DA 13312!)" 

: rem 2 

150 GETCH$ : IFCH$ = " "THENl 50 : rem 227 

160 IFCH$="U"THENCH=1 4336: PRINTCHR$ (1 42) : 

GOTO200 : rem 88 

1 70 IFCH$ = "L"THENCH=1 4336 + 1 024 : PRINTCHR? ( 
14):GOTO200 :rem 16 

1 80 I FCH $ = " C " TH ENFORK = 1 3 568TO 1 3575 : POKER , 
0 : NEXT:CH = 1 331 2 : GOSUB 51 0 : GOTO200 

: rem 1 94 

190 GOTO! 50 :rem 105 

200 PRINT" {CLR} {RVS }CARATTERE DI RIEMPIME 
NTO" :rem 121 

210 GOSUB590 : PP$=MT$ : rem 177 

220 PRINT" {CLR} {RVS }QUAL E' IL TUO MESSAG 
GIO { 2 SPAZI } " : GOSUB 590 : N$=MT$ 

: rem 219 

230 PRINT" {RVS} QUANTO ALTO (DA 1 A 9)": IN 
PUTTS : IFTS< 1 THENTS=1 :rem 147 

240 PRINT" {RVS} QUANTO LARGO (DA 1 A"TS" 




:rem 

1 86 


{SIN} ) " : INPUTWS: IFWS>TSORWS< ! THENWS=T 

350 

NEXTJ 

: rem 

33 


S 

: rem 

21 5 

360 

NEXTL 

: rem 

36 

: 250 

OPENl , 4 

; rem 

90 

370 

PRINT#! , CHR$ (8) :CLOSEl 

: rem 

1 8 

260 

FORL =1 TOLEN (N$) 

: rem 

1 26 

380 

POKE36879 , 26 : IFPEEK ( 36869 ) 

= 25 5THENCC = 

270 

A$=MID$ (N$,L,1 ) : PRINT 

" {RVS} {HOME} 



1 : POKE36869 , 240 

: rem 

245 


{ 9 GIU '} STAMPA {OFF} 

"A$:IFA$=" " 

THEN 

390 

PRINT" {CLRjPREMI UN TASTO: 

" : PRINT" 



GOSUB480:GOTO380 

: rem 

95 


{ 2 GIU 1 } X PER FINIRE": PRINT" 


280 

Q=ASC(A$) :Q=Q+ (Q>63) * 

64+ ( Q> 1 91 ) * 64+ (Q 


{ 2 GIU ' }R PER RISTAMPARE" 

: rem 

1 08 


=255) *33 

: rem 

70 

400 

PRINT"{ 2 GIU ' }N PER NUOVO 

MESSAGGIO" 

290 

I =CH+Q* 8 

: rem 

1 38 



: rem 

242 

300 

FORJ=7TOOSTEP-1 

: rem 

1 65 
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310 

FORK = 7TOOSTEP* 1 

: rem 

1 67 

320 

B=PEEK ( I+K) 

: rem 

73 

330 

I FBAND 2 1 JTHENFORT= 1 TOTS : PR$ = 

PR$+PP$:N 


EXTT: GOTO350 

: rem 

0 

340 

FORT=l TOTS: PR$=PR$+" " : NEXTT 

: rem 

201 

350 

NEXTK 

: rem 

34 

360 

FORX= 1 TOWS : PRI NT# 1 ,CHR$ (1 5)SPC( (72-TS 
*8) /2) PR$CHR$ (8) :NEXTX:PR$="" 

: rem 188 

370 

NEXTJ 

: rem 

35 

380 

NEXTL 

: rem 

38 

390 

PRINT#! , CHR$ (8) :CLOSEl 

: rem 

20 

400 

IFCH$="C"THENPOKECU, 1 96: POKECU+1 , 

208: 


CC = 1 

: rem 

1 69 


410 PRINT." {CLR}PREMI UN TASTO PRI NT" 

{GIU ' }X PER FINIRE" : PRINT" {GIU ' }R PER 
RISTAMPARE IL MESSAGGIO" :rem 119 

420 PRINT" {GIU 1 }N PER UN NUOVO MESSAGGIO" 

: rem 1 34 

430 GETY$ : IFY$=" " THEN430 :rem 129 

440 IFY$="R"THENGOSUB490 : PRINT" {CLR}"N$:G 


OTO250 :rem 221 

450 IFY$ = "X" THENOPENl , 4 : PRINT#! ,CHR$ (15): 



CLOSEl : PRINT" {CLR} " : END 

: rem 

2 55 

460 

IFY$="N"THENl 1 0 

: rem 

54 

470 

GOTO 430 

: rem 

107 

480 

FORX= ITO 8*WS: PRINT#! ,CHR$ (8) 

: NEXT : 

RET 


URN :rem 92 

490 IFCC=1 THENCC=0 : GOSUB51 0 :rem 146 

500 RETURN :rem 117 

510 POKECU,PEEK (CU) AND251 :POKECU+l ,PEEK(C 
U+l ) AND 30R52: RETURN :rem 29 

520 FORI =81 9TO850 : READ A: POKEI ,A: X=X+A: NEX 
T :rem 168 

530 IFX< >5848THENPRI NT" ERRORE NELLE ISTRU 
Z IONI DATA": STOP :rem 203 

540 RETURN :rem 121 

550 DATAI 69, 56, 1 33, 254,169, 208,133, 252,16 
9,0 : rem 183 

560 DATAI 33,2 51 ,133,2 53,168,162,8,177,251 


:rem 28 

570 DATAI 45, 2 53, 200, 208,249,230,252,230,2 
54 : rem 115 

580 DATA202 ,208,242,96 :rem 112 

590 POKE239, 5: POKEI 319,1 55 : POKEl 3 20 , 34 : PO 

KEl 321 ,34: POKEl 32 2, 20: POKEl 323,144 

: rem 5 

60 0 INPUTMT$ : RETURN :rem 5 
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II gioco consiste nel guidare la 
vostra astronave attraverso una 
zona piena di asteroidi e di so- 
pravvivere il più a lungo possibi- 
le. 

A vete a disposizione tre astronavi e 
per ciascuna di esse cinque scudi 
di forza magnetica, che vi permetteran- 
no di disintegrare gli asteroidi che non 
riuscirete a evitare. Dopo cinque colli- 
sioni l’astronave sarà distrutta. I coman- 


di sono: destra e sinistra utilizzano i re- 
lativi cursori; barra spaziatrice per atti- 
vare lo scudo magnetico. 

Quando tutte le vostre astronavi saran- 
no distrutte il gioco avrà termine e vi 
sarà mostrata la durata della vostra 
missione e il tempo record sino a quel 
momento raggiunto. 

Notevole la ridefinizione dei caratteri 
(30), dei quali ben 13 per gli asteroidi, 
4 per l’astronave, 7 per lo scoppio e 6 
per le stelle del firmamento. 


Da segnalare l’utilizzo del tasto ESCA- 
PE (CHR$(27)), che ha permesso la de- 
finizione di una finestra a video, in modo 
da effettuare lo scroll verso l’alto senza 
intaccare la prima linea dove sono mo- 
strate le astronavi rimaste e gli scudi a 
disposizione inutilizzati. 

Variabili utilizzate: 

NA numero delle astronavi rima- 

ste 

CF scudi magnetici da utilizzare 
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X posizione dell’asse verticale a 


sulla 25 a riga 


cord 

video della astronave 

co 

numero delle collisioni 

N 

valore del vostro tempo 

XI posizione verticale precedente 

N$ 

stringa contenente il tempo 

HI 

valore del tempo record 

della astronave 

X2 e X3punti di stampa degli asteroidi 

# 

HI$ 

della missione 

stringa contenente il tempo re- 

SR$ 

stringa contenente le stelle 


Asteroidi per C16-Plus/4 


1 oi o 

1 020 
1 1 00 
ino 


1 1 20 

1 1 30 
1 1 40 
1 1 50 
1 1 60 
1 1 70 

1 1 80 
1 1 90 
1 1 95 

1 200 

1 21 0 
1 220 

1 230 
1 240 

1 250 
1 260 
1 400 

1 41 0 

1 420 

1 430 

1 440 

1 460 
1 500 
1 510 
1 520 
1 530 
1 540 

1 550 
1 560 

1 600 
1 610 

1 620 
1 630 
1 640 

1 700 

1 71 0 


POKE56 , 60 : POKE52 , 60 : POKE55 , 0 :POKE5 1 , 
0 :rem 170 
GOSUB9000 :GOSUB7000 : rem 141 
COLORO ,7,0: COLOR4 ,7,0 :rem 220 
PRINT" {CLR} {CYN} ASTRONAVI {YEL} 

[<F>] [<F>] [ <F> ] " : CHAR, 24,0," {CYN } S 
CUD I " : rem 25 
PRINT" {HOME} { 2 GIU ' } "CHR$ ( 27) "T" : PR 
INTCHR$ ( 27) "L" : rem 47 
N$ ="00 00 00" : NA=3 :rem 17 
CF=5 :CO=0 : X=1 8 :Xl =X :rem 138 
FORI=lTOCF:POKE31 00+2*1,90 :rem 35 
PO KE 2076 +2 *1,37 :NEXT :rem 165 
FORI = 1 T022 :PRINTMID$ ( SR$ , INT (RND ( 0 ) * 
29) +1 , 40) ; :NEXT :rem 79 
CHAR, X , 8 , " { YEL} [<U>] [<0>]@":rem 9 
FORI=l TOl 000 :NEXT:TI$=N$ :rera 240 
POKE65297, 21 :POKE65294 ,X*3 :POKE65298 
,1 :rem 195 
GETA$ :X=X+ (A$=" {SIN} "ANDX>0) - (A$=" 

{ DES } "ANDX< 36) : rem 24 
IFA$ = " "THENl 500 :rem 46 
IFPEEK ( 3432+X) >9 90RPEEK ( 3433+X) >990R 
PEEK (3434+X) >99THENl 600 :rem 238 


GOSUBl 400 


rem 


1 1 


CHAR, XI ,7, "B D" :CHAR,X,8," {YEL} [<U>] 
[<0>]@_":X1=X : rem 196 

POKE65294 ,X*3 :rem 226 

GOTO! 200 :rem 197 

X2 = INT (RND (0) *40) : X3 = INT(RND (TI) *40) 

:rem 89 

POKE3 992+X2, INT (RND ( 0 ) *1 3) +1 00:POKE2 
968+X2,56 :rem 38 

POKE3992+X3, INT (RND (0) *1 3) +1 00:POKE2 
96 8+X3 , 56 :rem 41 

CHAR, 0, 24,MID$ (SR$ , INT (RND (0) *29) +1 , 
39) : rem 110 

PRINT" {HOME} { 2 GIU ' } "CHR$ ( 27) "T"CHR 


$ (27) "V" 

RETURN 

IFCF=0 THENl 220:VOL8 
POKE31 00+2*CF, 32 :CF=CF-1 
GOSUBl 400 
CHAR, XI, 7," E " 


: rem 
: rem 
: rem 
:rem 
: rem 
: rem 

VI 


1 1 9 
171 
1 62 
66 
1 3 
52 
SOUN 
21 5 
23 


CHAR , X , 8 , " { WHT } [<L>] [<W>] [<Y>] 

D3, 1000, 30 :rem 

FORI = l TO200 :NEXT : rem 

CHAR , X , 8 , " { YEL } [<U>] [ <0> ] : Xl =X: GOT 
01195 : rem 1 66 

CO=CO+l : IFCO=5THENl 700 :rem 72 

GOSUBl 400 :CHAR,Xl ,7,"G D " : CHAR , X , 8 , " 
{RED} [<U>] [<0>] : rem 111 

VOL8 : SOUND3 , 1 000 , 5: COLORO, 2: rem 1 25 


SOUND3 ,800,5 : COLORO ,7,0 


rem 


83 


CHAR, X , 8, " {YEL} [<U>] [ <0> ] @ : Xl =X: GOT 
01195 : rem 1 65 

N$=TI$ : GOSUBl 400 JPOKE6 5297, PEEK (6529 
7 ) ANDl 5 : rem 21 

CHAR, XI, 7," E " : CHAR, X , 8 , " { WHT } 
{FLASH ON } [ <E> ] [ <E> ] {WHT} :rem 131 


1 720 
1 730 
1 740 


1 750 
1 760 
1 770 
1 780 

1 790 
1 800 

1 81 0 

1 820 

1 900 

1 91 0 
1 920 

1 930 
1 940 

1 950 

1 960 


FORI = 5T08 : VOLI :rem 187 

SOUND3, 550,7 :NEXT : rem 41 

CHAR, X, 7, "{WHT} [<R>] [<W>] [<H>] {GIU' } 
{ 3 SIN } [ < J> ] [ < J> ] {GIU * } { 3 SIN} 

[<L>] [<W>] [<Y>] " : rem 185 

FORI = 8TOl STEP- 1 : VOLI :rem 84 

SOUND 3,700,10: NEXT :rem 83 

POKE3081 +2*NA, 32 :NA=NA- 1 :rem 100 

CHAR , X , 7 , " EG { GIU ' } { 3 SIN} D {GIU 1 } 
{ 3 SIN } BDG" : rem 178 

FORI=l TO500 :NEXT :rem 32 

CHAR, 5, 12, "{YEL} L'ASTRONAVE E' STATA 
DISTRUTTA" :VOL8 :rem 27 

FORI = l TOl 000 :NEXT: IFNA=0THEN1 900 

: rem 3 

PRINT" {HOME} { 2 GIU ’ } "CHR$ ( 27) "T 
{CLR}" :GOT01 1 40 :rem 240 

T$=LEFT$ ( N$ , 2) +" ."+MID$ (N$ , 3 , 2) 
RIGHT$ (N$ , 2) : rem 192 

N=VAL(N$) : PRINT" {CLR}" : rem 154 

CHAR, 2, 5, "{YEL} LA TUA MISSIONE E' DU 
RATA: " : PRINTT$ :rem 59 

IFN>HITHEN2000 :rem 106 

CHAR, 2, 1 0, " {CYN} IL RECORD DI DURATA 
E': " : PRINTHI$ :rem 170 

CHAR, 2, 20, " {WHT} GIOCHI ANCORA? (S/N) 
" :rem 21 

GETA$ : IFA$="N"THENPRINT" {CLR} " :END 





: rem 

1 82 

1 970 

IFA$ <> "S "THENl 960 


: rem 

21 3 

1 980 

GOTO! 1 00 


: rem 

205 

•2000 

HI$=T$ :HI=N 


: rem 

1 30 

2010 

CHAR, 2, 8, "HAI FATTO IL 

NUOVO RECORD 


DI DURATA" 


: rem 

1 56 

2020 

FORI=500T0700STEP4 


: rem 

1 1 2 

2030 

SOUND! ,1,1 : NEXT 


: rem 

202 

2040 

GOTO! 950 


: rem 

206 

7000 

REM ISTRUZIONI 


: rem 

203 

701 0 

COLORO ,11,1 :COLOR4 ,11,1 


: rem 

58 

7020 

PRINT" {CLR} " : CHAR, 11,8, 

11 

{ YEL} A S 

T E 


R O I D I" 


: rem 

41 

7030 

CHAR, 7, 11 ," {WHT} VUOI LE 


ISTRUZIONI? 

• 

(S/N) " 


: rem 

1 62 

7040 

GETA$ : IFA$="N"THENRETURN 

: rem 

28 

7050 

IFA$<>"S"THEN7040 


: rem 

203 

7060 

PRINT" {CLR} " : CHAR, 11,0, 

IV 

{ YEL} A S 

T E 


R O I D I" 


: rem 

37 

7070 

PRINTrPRINT" { 2 GIU'}{WHT}LA TUA 

NAV 


E SPAZIALE E' ENTRATA IN{ 2 SPAZI} UN 


A" 


: rem 

1 25 

7080 

PRINT" ZONA DI ASTEROIDI 

• 

* 

QUANTO 

TEMP 


O RIUSCÌ-" 


: rem 

1 56 

7090 

PRINT"RAI A SOPRAVVIVERE 

PRIMA CHE V 


ENGA{ 2 SPAZI} DI-" 


: rem 

222 

71 00 

PRINT "STRUTTA?" 


: rem 

1 5 

71 1 0 

PRINT"PER MUOVERTI USA 

I 

CURSORI 

DES 


TRO E SI-" 


: rem 

52 

71 20 

PRINT"N ISTRO . { 2 SPAZljHAI A DISPOSI 


Z IONE UNO SCHERMO" 


: rem 

94 

71 30 

PRINT"AD ENERGIA CHE TI 


PERMETTERÀ ’ 


DI DISIN-" 


: rem 

21 8 
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71 40 

PRINT"TEGRARE GLI ASTEROIDI CHE 

NON 


RIUSCIRAI" 

: rem 

1 41 

71 50 

PRINT" AD EVITARE. ATTENZIONE PERO': 


LO SCHER-" 

: rem 

54 

71 60 

PRINT"MO E 1 DISPONIBILE PER SOLI 

CI N 


QUE SCON-" 

: rem 

28 

71 70 

PRINT"TRI E PER ATTIVARLO 

PREMI 

LO S 


PAZIO." 

: rem 

1 41 

71 80 

PRINT"DOPO CINQUE COLLISIONI LA 

NAVE 


ESPLODE-" 

: rem 

1 25 

71 90 

PRINT"RA ' . " 

: rem 

1 38 

7200 

PRINT" { 2 GIU' } {CYNjPREMI 

UN TASTO P 


ER INIZIARE" 

: rem 

72 

721 0 

GETA$ : IFA$ = " "THEN721 0 

: rem 

1 83 

7220 

RETURN 

: rem 

1 71 

8000 

REM DATA L/M 

: rem 

1 42 

801 0 

DATAI 60, 0, 1 85, 0, 208, 1 53,0, 

60 




: rem 

1 1 7 

8020 

DATAI 85, 0,209, 1 53, 0,61, 1 85 

,0 




: rem 

1 27 

8030 

DATA21 0, 1 53, 0, 62, 1 85, 0, 21 1 

, 1 53 




: rem 

21 6 

8040 

DATAO, 63 ,24,136,208,228,96 

: rem 

44 

8100 

REM DATA NUOVI CARATTERI 

: rem 

247 

81 1 0 

DATA62, 63, 255, 255, 255, 1 27, 

63 , 26 




: rem 

40 


8120 DATAI 1 2,244,254,1 27,255,255,1 26,32 

: rem 178 

8130 DATAO, 0, 24, 60, 60, 56, 0, 0 : rem 119 

8140 DATAO , 0 , 48 , 56, 1 1 2 , 32 , 0 , 0 : rem 171 

8150 DATAO , 24 , 60 , 56, 1 4 , 4 , 0 , 0 :rem 124 
8160 DATAI 1 2, 24 8, 248, 1 24, 56, 4 8, 0,0 

: rem 1 87 

8170 DATAO, 16, 56, 56, 60, 16, 0,0 :rem 184 
8180 DATAO, 0,30, 30, 62, 84, 23,0 :rem 174 
81 90 DATA94, 2 55, 2 52, 2 52, 62, 127, 60, 60 

:rem 41 

8200 DATAO , 62 , 1 27, 1 26 , 62 , 31 , 1 4 , 0 : rem 68 
8210 DATA96, 240, 240, 122, 14, 63, 127, 126 

:rem 74 

8220 DATA62, 1 27,254,1 5 , 24 7 , 24 8 , 240 , 96 

: rem 93 

8230 DATA24, 60, 1 4, 7, 6, 4, 0, 0 :rem 77 

8240 DATAI 4 5, 82, 1 6, 7, 244, 8, 74, 1 37 

: rem 1 50 

8250 DATAO , 4 , 34 , 1 8, 1 , 68, 50 , 9 : rem 142 

8260 DATAO, 8, 1 70, 42, 73, 65, 137, 137 

:rem 143 

8270 DATAO, 32, 68, 72 ,128,36,76,144 

:rem 149 

8 2 80 DATAI 00,24,1 98,0,222,0,24,102 

: rem 168 

8290 DATA9 , 50 , 68 , 1 , 1 8 , 34 , 4 , 0 : rem 146 

83 00 DATAI 44,76,34,1 28,72,68,32,0 

: rem 141 

831 0 DATAO, 0, 3, 1 4, 57, 255, 6, 24 : rem 182 


8320 

DATA24, 1 26, 231 , 1 26, 1 96, 255, 

0,0 
: rem 

229 

8330 

DATAO, 0, 1 92,112,156,255,96, 

24 

: rem 

1 85 

8340 

DATAO ,0,24,60,102,255,36,0 

: rem 

1 7 

8350 

DATAO, 0,0, 0,0, 0,0, 8 

: rem 

1 66 

8360 

DATAI 28,0,0,0,0,0,0,0 

: rem 

1 0 

8370 

DATAO, 0,0, 0,32, 0,0,0 

: rem 

21 3 

8380 

DATAO ,4,0,0,0,0,64,0 

: rem 

223 

8390 

DATAO ,0,0,64,0,0,0,0 

: rem 

220 

8400 

DATAO ,128,0,0,0,0,2,0 

: rem 

7 

9000 

REM TRASFERIMENTO CARATTERI 

IN RAM 
: rem 166 

901 0 

PRINT" {CLR} " : CHAR, 1 3, 1 1 , "A 

T T E 

N D 


I" 

: rem 

29 

9020 

T=0 :FORI = l 000 TO 1 030 :READA 

: rem 

242 

9030 

POKE I , A : T= T+ A : NEXT 

: rem 

1 81 

9040 

IFTO 32 88THENPRINT" {CLR} ERRORE NEI D 


ATA ! ! !" : END 

: rem 

203 

9050 

SYSl 000 : VOL8 

: rem 

241 

9060 

POKE65298 , PEEK (65298) AND251 

: rem 

39 

9070 

POKE65299 , PEEK (65299) AND3OR60 

: rem 

204 

91 00 

REM MODIFICA CARATTERI 

: rem 

1 37 

91 1 0 

FORI = 1 61 60TO1 6351 : RE ADA 

: rem 

1 1 2 

91 20 

PO REI, A: NEXT 

: rem 

42 

91 30 

FOR 1=1 5888T01 5935:READA 

: rem 

1 37 

91 40 

PO REI, A: NEXT 

: rem 

44 

9500 

REM VARIABILI INIZIALI 

: rem 

1 58 


9510 SR$ = " { 2 SPAZI }C{SPAZI}F{ 2 SPAZI}G 
{ 2 SPAZI}B{SPAZI}E{SPAZI}D{SPAZI}B 
{ 2 SPAZ I } EF{ 3 SPAZI }G{ 2 SPAZI }C 
{ 3 SPAZ I } B { SPAZ I}E{ SPAZ l}C 
{ 2 SPAZ I } FD { 2 SPAZ I } E{ SPAZ I } F 
{ 2 SPAZI }B D { 3 SPAZlTFC{ 2 SPAZI} 



G{ 2 SPAZlTBT 

2 SPAZI} E D 

C " 





: rem 

1 74 

9530 

HI$="00. 00. 00" 

: HI = 0 

: rem 

1 87 

9900 

RETURN 


: rem 

1 78 
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L O A 



*\c *° 




di M. Cristuib Grizzi 



Dopo la pubblicazione sai nume- 
ro di Ottobre dello scorso anno 
di “Relfiling System 1.0”, il da- 
tabase per sistema a dischi con 
utilizzo dei file relativi, ci sono 
pervenute molte richieste da 
parte dei lettori per un database 
con le stesse caratteristiche de- 
dicato invece esclusivamente al 
registratore a cassette. 

Con questo programma abbiamo 
cercato di offrire un valido stru- 
mento di archivio anche a coloro 
che non posseggono un drive, 
sperando di essere riusciti a rea- 
lizzare un database per nastro 
magnetico ugualmente veloce e 
flessibile. Il programma richiede 
un* espansione di memoria da al- 
meno 8 Kbyte. 

La filosofia del programma 

L a limitazione posta dall’utilizzo for- 
zato del registratore a cassette im- 
pone infatti la programmazione del soft- 
ware per archivio nella forma sequen- 
ziale: il termine “sequenziale”, già di 
per sé esemplificativo, indica che i dati 
vengono letti o scritti in sequenza: per 
vedere che cosa contiene il centesimo 
record siamo obbligati a leggere anche 
tutti i precedenti novantanove, anche 
se il loro contenuto non ci interessa. 
Inoltre, se disponiamo di un file con cen- 
to record e desideriamo aggiungervi il 
centounesimo, non sarà possibile - come 
avviene per i file relativi su disco - “in- 
collare” questo record alla fine del file, 
ma dovremo riscrivere per intero tutto 
il file. 

Risulta evidente che i file sequenziali 
sono molto più lenti dei relativi e se a 
questa lentezza sommiamo quella insita 
nelle operazioni con il registratore a 
cassette, il tempo necessario al tratta- 
mento di file mediamente lunghi sale 
notevolmente. 

Fortunatamente esistono particolari 
tecniche, che permettono di ridurre no- 
tevolmente il tempo di accesso al singo- 
lo record fino a renderlo inferiore a 
quello dei file relativi, anche se il tempo 


globale di accesso al file rimane inevita- 
bilmente superiore. 

Queste tecniche consistono nel caricare 
in RAM l’intero file all’inizio delle opera- 
zioni, quindi manipolarlo con gran velo- 
cità (tutte le operazioni che avvengono 
in RAM hanno una velocità enorme- 
mente superiore a qualsiasi operazione 
anche su disco), infine risalvare su na- 
stro il file manipolato. I lunghi tempi 
necessari alPiniziale caricamento del file 
e al suo finale salvataggio, sono com- 
pensati dalla velocità delle operazioni 
sul file, siano esse l’aggiunta di un re- 
cord, la sua ricerca o un ordinamento 
alfabetico. Il file esistente su nastro vie- 


ne trasferito nella RAM del computer, 
all’interno di opportuni vettori dimen- 
sionati su un valore massimo, che rap- 
presenta la capacità del file (massimo 
numero di record). Il contenuto di questi 
vettori può quindi essere alterato e ma- 
nipolato in qualsiasi modo attraverso le 
opzioni del database, aggiungendo, eli- 
minando o modificando qualsiasi re- 
cord. Alla fine delle operazioni si potrà 
perciò risalvare il tutto su nastro. 
Poiché, come abbiamo detto, le opera- 
zioni più costose in termini di tempo 
sono quelle con l’unità a cassette, risul- 
ta assai conveniente caricare il file al- 
l’inizio dell’attività - generalmente al 
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mattino - e procedere al suo salvataggio 
solo alla sera, al termine dell’utilizzo del 
database. Per tutta la giornata lavorati- 
va disporremo così di un archivio estre- 
mamente veloce e funzionale. 

Utilizzo del programma 

La struttura programma/utente è stata 
mantenuta simile a quella di “Relfiling 
System 1.0”, per agevolare chi desidera 
utilizzare entrambi i programmi. All’atti- 
vazione del programma viene richiesto 
di inserire la data corrente, nella forma 
giorno/mese/anno (esempio 011186), e 
l’ora corrente, nella forma ore/minuti/ 
secondi (esempio 110800). Se non si de- 
sidera - per brevità - inserire alcun valo- 
re, si prema semplicemente RETURN ai 
prompt del programma; in questo caso, 
tuttavia, non verranno registrate data ed 
ora deH’ultimo aggiornamento effettuato 
sul file dati. 

Comparirà quindi un menu di selezione 
contenente le seguenti opzioni: 

0. Crea nuovo file 

1. Carica file 

2. Salva file 

3. Scrive record 

4. Legge record 

5. Ricerca record 

6. Ordina record 

7. Memoria libera 

8. Stampa il file 

9. Fine lavoro 

Dal momento che alla prima utilizzazio- 
ne non disporremo di un file dati su na- 
stro, dovremo generarlo. Selezioniamo 
quindi l’opzione 0. 

Il programma ci chiederà il numero di 
campi per record e quindi il loro nome 
e rispettiva lunghezza. Viene quindi ri- 
chiesta la capacità del file (massimo nu- 
mero di record): qui occorre prestare 
molta attenzione. Non esiste un tetto 
massimo a questo valore, in quanto esso 
dipende dal numero di campi che abbia- 
mo stabilito precedentemente e dal tipo 
di espansione di memoria collegato al 
VIC 20: 100 record con 5 campi ciascu- 
no occupano in genere più memoria di 
80 record con 15 campi ciascuno... Il 
valore va quindi trovato sperimental- 
mente in rapporto alla memoria disponi- 
bile. 

Ad ogni buon conto, dopo aver assegna- 
to le dimensioni al file e quindi il suo 
nome, è conveniente controllare tramite 
l’opzione 7 del menu l’ammontare di me- 
moria libera: quest’ultimo non dovrebbe 
mai essere inferiore a circa 1000 byte, 
al fine di lasciare il sufficiente spazio per 
le variabili utilizzate dal programma. Do- 
po un minimo di esperienza si sarà in 
grado di ottimizzare la capacità dei file 
sul massimo valore possibile. 

Stabilite le massime dimensioni del file 
dovremo scegliere un nome da assegnar- 
gli: chiamiamolo “PROVA”. 

A questo punto potremo iniziare a inseri- 
re informazioni attraverso l’opzione 3: 
comparirà nella parte alta dello schermo 
una linea in campo inverso contenente 


le opzioni usabili in modo inserimento 
dati. Esse sono: 

tasto passa al record precedente 

tasto “+” passa al record successivo 
tasto “£” passa a un record particolare 
tasto “E” ritorna al menu principale 
tasto “I” permette l’inserimento dati 

A questo punto saremo posizionati sul 
record 1. Fremiamo il tasto I per l’inse- 
rimento dati. Comparirà il nome del pri- 
mo campo e tra parentesi la sua lun- 
ghezza: e saremo pronti per scrivere i 
nostri dati. Se scrivendo raggiungiamo 
la fine del campo, il computer passerà 
automaticamente al campo successivo; 
se invece i dati che desideriamo inserire 
hanno una lunghezza inferiore alla mas- 
sima lunghezza del campo, dovremo 
premere RETURN per passare al cam- 
po successivo. 

Se non si desidera scrivere su un cam- 
po, è sufficiente premere RETURN. Do- 
po aver inserito i dati in tutti i campi il 
programma si posizionerà sul record 
successivo, in questo caso il numero 2. 
Un record può essere riscritto in qual- 
siasi momento, posizionandosi su di es- 
so con i tasti “+” e oppure con il 
tasto “£” (lira), che permette di scrivere 
su qualunque record, comunicandone il 
numero al computer. Premendo quindi 
il tasto “I” si potrà riscrivere il record. 
Scriviamo anche i dati del record 2 e 
ritorniamo al menu principale, premen- 
do il tasto “E”. 

Il nostro file conterrà ora due record, 
che potremo leggere con l’opzione 4. 
La schermata che compare è analoga 
a quella di scrittura (tranne per la parte 
alta dello schermo, che contiene, in ros- 
so, i dati generali del file) e identiche 
sono le funzioni dei tasti tranne il tasto 
T’, che, ovviamente, non compare in 
questa opzione. Il programma si posizio- 
nerà automaticamente sul primo record 
e lo visualizzerà sullo schermo. Potremo 
leggere il secondo sia premendo “+” 
che premendo “£” e rispondendo con 
2 alla domanda del computer. 

Dal momento che abbiamo inserito sol- 
tanto due record, cercando di leggere 
un record non scritto, ad esempio il nu- 
mero 3, il computer ci avviserà che tale 
record è vuoto. 

Premendo “E” ritorniamo al menu prin- 
cipale. 

Una delle caratteristiche più utili dei 
programmi di archivio è la possibilità di 
ricercare un certo record all’interno di 
un file, che magari ne contiene più di 
mille. L’opzione 5 esegue appunto que- 
sta funzione. Selezionando tale opzione, 
il computer visualizzerà l’elenco dei 
campi di ogni record e ci chiederà in 
base a quale campo desideriamo effet- 
tuare la ricerca. Ad esempio, volendo 
ricercare alFinterno di un file di indirizzi 
composto da 5 campi (Cognome, No- 
me, Via, Città, Numero telefonico) il re- 
cord contenente i dati del signor Rossi, 
sceglieremo di effettuare la ricerca sul 
primo campo, e digiteremo “Rossi” alla 


richiesta circa il contenuto del campo. 
Il programma - dopo averci chiesto se 
desideriamo o meno una stampa dei da- 
ti - ricercherà quindi, all’interno del file, 
tutti i cognomi ”Rossi” nel primo cam- 
po. Se questo cognome compare nel- 
l’archivio, verrà visualizzato il record 
contenente i suoi dati. 

Il programma chiederà quindi se si desi- 
dera proseguire nella ricerca (ci posso- 
no essere più persone il cui cognome è 
Rossi). In .caso affermativo la ricerca 
prosegue fino alla ricorrenza successiva 
o alla fine del file. Se invece si deside- 
rasse controllare tutte le persone che 
abitano a Milano, si sceglierà per la ri- 
cerca il campo numero 4 e gli si asse- 
gnerà come contenuto la stringa “Mila- 

t? 

no . 

Una particolarità interessante dell’op- 
zione di ricerca, è che essa permette di 
ricercare un particolare record sempli- 
cemente digitando solo una parte del 
suo campo. 

Per spiegarci meglio, se il file contiene 
un record per il signor Rossi, uno per il 
signor Rossetti ed uno per il signor Ro- 
sellini, ricercando “Rossi” verrà trovato 
solo il record del signor Rossi. Se alla 
domanda del computer sul contenuto 
del campo di ricerca digitiamo invece 
“Ross”, il programma troverà sia ”Ros* 
si” che “Rossetti”. Se digitiamo “Ros” 
verrà trovato anche ”Rosellini”. Se digi- 
tiamo “R” verranno trovati tutti i record 
che iniziano per R. 

Questa particolarità della funzione di ri- 
cerca risulta estremamente utile, se non 
ricordiamo esattamente un cognome o 
la forma del dato che ci serve. Ritornia- 
mo al menu principale. L’opzione 7 ci 
dice l’ammontare della memoria dispo- 
nibile (dopo un tempo di attesa più o 
meno lungo, necessario al computer per 
effettuare i suoi controlli). 

L'opzione 6 ordina invece alfabetica- 
mente tutto il file, a partire dal primo 
campo e poi via via per tutti i campi 
successivi/fino all’ultimo carattere di 
ogni record. Il tempo di attesa per l’ope- 
razione di ordinamento dipende dal nu- 
mero esistente di record, dalla loro lun- 
ghezza, e dal loro stato di "disordine” 
all’interno del file. Non è mai tuttavia 
troppo elevato, dal momento che tutta 
l’operazione avviene in RAM. 

L’opzione 8 genera uno stampato di tut- 
to il file, con l’ordine secondo il quale i 
record si trovano all’interno del file stes- 
so. Ricordiamo che la stampa di record 
singoli è disponibile attraverso l’opzione 
di ricerca. 

Infine le opzioni 1 e 2 servono rispetti- 
vamente per il caricamento o il salva- 
taggio su nastro di un file dati. Viene in 
entrambi i casi richiesto il nome del file, 
il quale è tuttavia opzionale. 

Si può uscire dal programma attraverso 
l’opzione 9, che dopo aver richiesto 
conferma provoca l’uscita dal program- 
ma. 

Ecco ora un elenco delle principali 
variabili utilizzate dal programma: 
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RN 

massimo numero di record 

TY 

numero di record allocati 

F$ 

nome del file dati 

RL 

lunghezza dei record 

C 

numero dei campi 

N$() 

nome dei campi 

LO 

lunghezza dei campi 

RC$() 

contenuto dei record 

R$ 

ritorno carrello 

BY 

ammontare di byte liberi 

F 

variabile di flag 

A 

codice ASCII di un tasto 

D$,U$ 

data aggiornamento 

T1$,T$ ora aggiornamento 

R 

contatore dei record 

PS 

posizione di una sottostringa 


Commento al listato 

100-110 inizializzazione colori schermo, 
bordo e testo e passaggio al modo maiu- 
scolo/minuscolo. 

130-160 accettazione data ed ora cor- 
rente. A causa delle istruzioni CLR pre- 
senti nel programma, la data viene im- 
magazzinata permanentemente nelle 
tre locazioni di memoria 667, 668 e 669 
nel suo formato, rispettivamente, di 
giorno, mese e anno. 

180-350 subroutine di input controllato 


per ('inserimento dei dati. 

370- 480 definizione del file dati. Si defi- 
niscono il numero di campi per record, 
il loro nome e lunghezza, e la capacità 
e il nome del file. La massima lunghezza 
consentita di un record è di 255 caratte- 
ri (254 effettivi, in quanto il programma 
aggiunge automaticamente un 
CHR$(13) di fine record). 

490-500 subroutine di attesa della pres- 
sione di un tasto. Viene restituito anche 
il codice ASCII del tasto premuto nella 
variabile A. 

520-700 subroutine di inserimento dati. 
Questa subroutine permette sia l’inseri- 
mento sequenziale dei record che il loro 
inserimento casuale aH’interno del file, 
posto che non esistano altri record an- 
cora vuoti, dotati di numero progressivo 
inferiore. 

720-840 subroutine di lettura dei re- 
cord. Anch’essa permette sia la lettura 
sequenziale che quella di un record qua- 
lunque all’interno del file. 

940-970 subroutine di visualizzazione 
dei parametri principali del file durante 
la lettura dei record. 

990-1070 subroutine di salvataggio su 
nastro dell’intero file. 


1090-1170 subroutine di caricamento 
di un file da nastro e di automatico di- 
mensionamento dei vettori del pro- 
gramma. 

1180-1320 menu di selezione delle op- 
zioni offerte dal programma. 
1340-1490 ricerca di un certo record 
all’interno del file, in base al contenuto 
di uno qualsiasi dei suoi campi. La ricer- 
ca avviene con il principio della “wild 
card’. 

1510-1580 subroutine di ordinamento 
sequenziale e alfabetico del file. Vengo- 
no confrontati tra loro tutti i caratteri 
costituenti i vari record, e posti in ordi- 
ne strettamente alfabetico. 

1600-1630 subroutine di stampa di tutti 
i record contenuti nel file. 

1670-1680 visualizzazione dell’ammon- 
tare della memoria libera. E opportuno 
che questo valore non scenda mai al di 
sotto di 1000, a meno che manchino 
solo pochi record al raggiungimento del- 
la massima capacità del file. 
1700-1710 fine delle operazioni. Il pro- 
gramma chiede conferma e, in caso af- 
fermativo, esce dal programma. 


Seqfiling System 1.0 

100 REM ** INIZ IALIZ ZAZ IONE GENERALE** 

:rem 51 

110 PRI NTCHRS (14) :rem 214 

120 REM * * LA DATA VIENE IMMAGAZZINATA NEL 
LE LOCAZIONI 667, 668 E 669** 

:rem 127 

130 INPUT" {CLR} DATA ({ 2 G} { 2 M} { 2 A} 

) { 2 SPAZ I } 000000 { 8 SIN}";D$ 

:rem 59 

1 40 I=VAL ( LEFT$ (D$,2) ) : POKE66 7 , 1 : 1 = VAL (MI 
D$ (D$ , 3 , 2) ) : POKE668 , I :rem 32 

150 I=VAL(RIGHT$ (D$ , 2) ) :POKE669,I 

: r em 140 

160 INPUT" {GIU' }ORA{ 2 SPAZI} ({ 2 H} 

{ 2 M} { 2 S}){ 2 SPAZl}000000 
{ 8 SIN}" ;TI$ :GOTOl 1 80 :rem 64 

170 REM ** SUB ROUTINE INPUT CONTROLLATO ** 

:rem 21 

1 80 PRINT"2NSERISCI : " : F=1 :B$="" :LS=0 :A$=" 
" :A=0 :rem 42 

190 GETA$ : IFA$=""THENl 90 :rem 87 

200 A=ASC (A$+CHR$ ( 0) ) :rem 74‘ 

21 0 IFA$ =CHR$ (20) THENLS = LS- 1 : F=0 : B$ =LEFT$ 

( B$ , LEN ( B$ ) - 1 ) : G0TO2 50 :rem 122 

220 IFA$=CHR$ (13) THENF=0 :GOT031 0 : rem 100 

230 IF ( A> 31 ANDA<9 5) OR ( A> 1 59ANDA<233) THEN2 
50 : rem 21 2 

240 PRINT : PRINT"CARA{ 2 T} ERE E{ 2 R} ATO 
! " : PRI NT: GOTO 1 80 : rem 10 

250 PRINTA$; :rem 196 

260 IFF=1 THENB$=B$+A$ :LS=LS+1 : IFLEN ( B$ ) =L 
(W) THENRETURN :rem 83 

270 F=1 :GOTOl 90 :rem 90 

300 REM ** AGGI UNGE SPAZI SHIFTATI FINO A 
LUNGHEZZA CAMPO** : rem 222 

31 0 A=LEN(B$) : D=L(W) -A: IFA=0THENRETURN 

:rem 75 

320 IFD>0THEN340 :rem 156 


330 IFD<0THENB$=LEFT$ (B$ ,L(W) ) : RETURN 




: rem 

231 

340 

A$=CHR$ (160) : C$="" : FORI= 

1 TOD : C$ =C$ +A$ 


: NEXT : B$ =B$ +C$ : RETURN 

: rem 

64 

3 50 

FORI = l TO 3000 : NEXT: RETURN 

: rem 

47 

360 

REM ** DEFIN I Z IONE DEL FILE**: rem 

78 

370 

CLR: INPUT" {CLR}CAMPI PER 

RECORD" ;C 

: PR 


INT : DIMN$ (C) , L (C ) 

: rem 

23 

380 

RL=0 : FORI = 1 TOC 

: rem 

1 00 

390 

PRINT" {RVSjCAMPO N.{OFF} 

"I :PRINT 




: rem 

1 41 

400 

INPUT"NOME" ; N$ (I) 

: rem 

94 

41 0 

INPUT"LUNGHEZZA";L( I) 

: rem 

1 94 

420 

RL=RL+L ( I ) : PRI NT: NEXT 

: rem 

96 

430 

RL=RL+1 : PRI NT "LUNGHEZZA 

TOTALE DI 

UNR 


ECORD: ";RL; "CARATT." : PRINT :rem 

1 73 

440 

IFRL>2 55THENPRINT"RECORD 

TRO { 2 P}0 


LUNGHI ! " : FORI = 1 T05000 : NEXT : GOTO! T 80 



: rem 

32 

450 

RN=0 : INPUT "MAX . N. RECORD 

";RN: PRINT 



: rem 

165 

460 

DIMRC5 (RN) 

: rem 

30 

470 

INPUT "NOME FILE" ;F$ : IFLEN ( F$ ) >0ANDLEN 


( F$ ) < 1 1 THE NF$ =CHR$ (18) +F$ : GOTO! 1 80 




: rem 

34 

480 

PRINT"DA IATO CARA{ 2 

T} ERI ! " : GOT04 


70 

: rem 

1 47 

490 

GETAS : IFA$ = " "THEN4 90 

: rem 

93 

500 

A= ASC ( A$ +CHRS ( 0 ) ) : RETURN 

: rem 

1 03 

51 0 

REM ** INSERIMENTO DI UN 

RECORD** 




: rem 

94 

520 

R=TY+1 

: rem 

47 

530 

PRINT" {CLR} { RVS} + SU{ 2 

C}. - PREC 

. £ 


SING{ 2 SPAZ I } E ESCE { 2 

SPAZI }l INS 


ER. { 4 SPAZ I } " 

: rem 

1 32 

540 

PRI NT" RECORD #"R 

: rem 

1 58 

550 

PRINT” {GIU' } SCELTA?" 

: rem 

247 

560 

GOSUB4 90 : IFA0 4 3ANDA04 5ANDA09 2ANDA< 


>69ANDAO73THEN560 

: rem 

82 

570 

IFA=43THENR=R+1 

: rem 

1 24 
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580 

IFA=43 ANDR>TY+1 THENPRI NT "ESI STONO 

REC 


ORD VUOTI PIU' BASSI !":GOTO550 




: rem 

1 24 

590 

IFA=43THEN530 

: rem 

21 7 

600 

IFA=4 5THENR=R- 1 : IFR< 1 THENR=1 

: rem 

241 

61 0 

IFA=4 5THEN530 

: rem 

21 2 

620 

I FA= 9 2THEN INPUT "NUMERO RECORD" ; R 




: rem 

1 81 

630 

IFA=92ANDR>TY+1 THENPRINT" ESISTONO 

REC 


ORD VUOTI PIU' BASSI !" :GOTO620 




: rem 

1 22 

640 

IFA=92THEN530 

: rem 

21 7 

650 

IFA=69THENl 1 80 

: rem 

1 6 

660 

RC$ (R) : FORW= 1 TOC: PRI NT : B$ 

= ti ti 




: rem 

45 

670 

PRINTN$ (W) " ("L (W) "CARATT. ) : " 

: GOSUBl 80 



: rem 

1 39 

680 

RC$ (R) =RC$ (R) +B$ 

: rem 

36 

690 

NEXT: IFR<=TYTHEN520 

: rem 

229 

700 

TY=TY+1 :GOTO520 

: rem 

148 

710 

REM ** LEGGE IL FILE** 

: rem 

61 

720 

R= 1 

: rem 

89 

730 

GOSUB940 : PRI NT" { RVS } + SU{ 2 

c}. 



{ 3 SPAZI}- PREC . { 5 SPAZI }£ 

SING. 



{ 3 SPAZI }E ESCE { 6 SPAZI}" 

: rem 

128 

740 

PRINT"RECORD # " ;R: PRINT 

: rem 

1 62 

750 

IFRCS (R) =" "THENPRI NT "RECORD 

VUOTO J 

1" :G 


OTO780 

: rem 

23 

760 

PS=1 :FORK=l TOC: PRINTNS (K) " : " 

MID$ (RC$ ( 


R) ,PS,L(K) ) : PRINT:PS=PS+L(K) 

: rem 

230 

770 

NEXT: PRI NT 

: rem 

164 


780 PRINT"{GIU' } SCELTA?" :GOSUB4 90 


: rem 83 

790 IFA043 ANDAO 4 5 ANDA< >92 ANDA 06 9THENG0 



SUB490 :GOTO790 

: rem 

1 57 

800 

IFA=43THENR=R+1 :GOTO730 

: rem 

1 33 

81 0 

IFA= 4 5THENR=R- 1 : IFR< 1 THENR= 

1 : rem 

244 

820 

IFA=45THEN730 

: rem 

21 7 

830 

IFA=92THENINPUT"N. RECORD"; 

R:GOTO730 



: rem 

1 07 

840 

-A=69THEN1 1 80 

; rem 

1 75 

930 

REM **DATI DEL FILE** 

: rem 

63 

940 

PRI NT" {CLR} { RED } FILE : "F$ ; TAB ( 22 ) " 



{OFF} CAPACITA' :"RN 

: rem 

53 

950 

PRINT"CAMPI : "C; TAB (22) "RECORD: "TY 




: rem 

7 

960 

PRINT"AGGIORN. AL: "U$TAB ( 22) 

"ORE: "LEFT 


$ ( T$ , 2 ) " "MID$ (T$ , 3 , 2) " "RIGHT$ ( T$ 

,2) 



: rem 

32 

970 

PRINT" {BLU} : RETURN 

: rem 

229 

980 

REM * *SALVA IL FILE** 

: rem 

89 

990 

GOSUB94 0 

: rem 

1 91 

1 000 

PRI NT "INSERÌ SCI LA CASSETTA E PREMI 


RETURN" 

: rem 

66 

1 01 0 

GOSUB4 90 : IFAOl 3THEN1 01 0 

:rem 

1 84 

1 020 

D$=STR$ (PEEK (667) ) +STR$ (PEEK(668) ) +S 


TR$ (PEEK (669) ) 

: rem 

86 

1 030 

R$ =CHR$ (13): OPEN1 , 1 , 1 , F$ 

: rem 

26 

1 040 

PRINT# 1 , RN;R$;TY;R$ ;C;R$ ;RL;R$ ;D$ 

;R$ 


;TI$ 

: rem 

1 97 

1 050 

FORI = 1 TOC: PRINT# 1 ,N$ (I) ;R$ 

; L ( I ) : NEXT 



: rem 

232 

1 060 

FORI=l TOTY: PRINT#1 ,RC$ (I) : 

NEXT 




: rem 

200 

1 070 

CLOSE1 : GOTOl 1 80 

: rem 

1 72 

1 080 

REM * *CARICA IL FILE** 

: rem 

1 73 

1 090 

CLR: INPUT" {CLR} NOME DEL FILE";F$ 

: F$ 


=CHR$ (18) +F$ 

: rem 

1 98 

1 1 00 

OPENl , 1 ,0,F$ 

: rem 

1 1 6 



ino 

INPUT#! , RN 

,TY,C,RL,U$,T$ :DIMN$ (C) ,L( 


C) , RC$ (RN) 


: rem 

202 

1 1 20 

FORI = 1 TOC: 

INPUT# 1 , N$ ( I ) , L ( I ) : NEXT 




: rem 

41 

1 1 30 

FORI =1 TOTY 

: RC$ ( I ) = "" 

: rem 

193 

1 1 40 

GET#1 ,A$ :RC$ (I) =RC$ (I) +A$ : 

IFA$OCHR$ 


( 1 3) THE Ni 1 40 

: rem 

1 39 

1 1 50 

NEXT 


: rem 

6 

1 1 60 

CLOSE1 : GOTOl 1 80 

: rem 

1 72 

1 1 70 

REM **MENU 

DI SELEZIONE** 

: rem 

1 97 

1 1 80 

PRINT" {CLR} {RVS}SEQFILING 

1 .0 



{ 3 SPAZ I } MCG 85" 

: rem 

1 81 

1 1 90 

A$ = " { 2 DEST 7 

: rem 

235 

1 200 

PRINT" {GIU 

' }"A$"0. CREA NUOVO FILE" 




: rem 

254 

1 21 0 

PRINTA$ " 1 . 

CARICA FILE" 

: rem 

1 56 

1 220 

PRINTA$ " 2 . 

SALVA FILE" 

: rem 

1 1 4 

1 230 

PRINTA$ "3. 

SCRIVE RECORD" 

: rem 

1 04 

1 240 

PRINTA$ "4. 

LEGGE RECORD" 

: rem 

2 

1 250 

PRINTA$ ." 5 . 

RICERCA RECORD" 

: rem 

1 53 

1 260 

PRINTA$ "6. 

ORDINA RECORD" 

: rem 

95 

1 270 

PRINTA$ " 7 . 

MEMORIA LIBERA" 

: rem 

1 58 

1 280 

PRINTA$ "8. 

STAMPA IL FILE" 

: rem 

98 

1 290 

PRI NT.? $ " 9 . 

FINE LAVORO" 

: rem 

222 

1 300 

PRINT" { 2 

GIU' } SCELTA?" 

: rem 

50 

1 31 0 

GOSUB490 : IFA<480RA>57THEN1 31 0 





; rem 

20 

1 320 

ONA-47GOTO370 ,1090,990,520 

, 720, 

1 340, 


1 51 0, 1 670, 

1600,1 700 

: rem 

35 

1 330 

REM * * RICERCA UN RECORD** 

: rem 

1 74 

1 340 

PRINT" {CLR} I CAMPI SONO:": 

FORI = 

1 TOC: 


PRINTI " : " ; 

N$ ( I) : NEXT 

: rem 

228 

1 350 

PRINT" {GIU 

' } NUMERO DEL CAMPO SU 

CUI 


EFFETTUARE 

LA 1 ' 

: rem 

71 


1 360 INPUT"RICERCA" ; A : IFA< 1 0RA>CTHEN1 350 

:rem 229 

1 370 PS=1 : IFA>1 THENF0RI=1 TOA- 1 :PS=PS+L(I) 

: NEXT : rem 171 

1380 INPUT" {GIU' }C0NTENUT0";C$ :rem 146 

1390 INPUT"VUOI UNO STAMPATO { 2 SPAZljN 

{ 3 SIN} " ;S$ : IFS$="S"THEN0PEN4 , 4, 7 :C 
MD4 :rem 68 

1 400 FORI = l TOTY: IFC$OMID$ (RC$ (I) ,PS,LEN( 
C $ ) ) THEN1 470 :rem 140 

1410 PRI NT" {CLR} RECORD N."I :rem 174 

1 420 PO=l : FORW=l TOC : IFPO=l THENPRINTNS ( 1 ) " 
: "LEFT$ (RC$ ( I) ,L(1 ) ) :GOT01 440 

:rem 205 

1430 PRINTNS (W) " : "MID$ (RC$ (I) ,PO, L(W) ) 

:rem 122 

1440 PO=PO+L(W) :NEXT :rem 220 

1450 INPUT" {GIU' } PROSEGUO NELLA RICERCA ( 

S/N) { 2 SPAZ I } S { 3 SIN} " ; A$ : rem 243 
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1460 

IFA$<>”S"THENl 1 80 

: rem 

201 

1 470 

NEXT 

: rem 

1 1 

1480 

IFS$="S"THENPRINT#4 :CLOSE4 :rem 

1 58 

1 490 

PRINT" {GIU' }ESITO NEGATIVO RICERCA. 


PREMI UN TASTO" : GOSUB490 :GOT01 1 80 



: rem 

247 

1 500 

REM ** ORDINAMENTO RECORD** :rem 

81 

1 51 0 

PRINT" {CLR} ORDINAMENTO 

IN CORSO. 

ATT 


ENDERE." 

: rem 

1 28 

1 520 

F=0 

: rem 

1 23 

1 530 

FORI = 1 TOTY- 1 : IFRCS (I)< = 

RC$ ( 1+1 ) THENl 


560 

: rem 

84 

1 540 

A$=RC$ (I) :RC$ (I) =RC$ (1+1 ) : RC$ ( 1+1 

) =A 


$ 

: rem 

1 95 

1 550 

F= 1 

: rem 

127 

1 560 

NEXT 

: rem 

1 1 

1 570 

IFF=1 THENl 520 

: rem 

7 

1 580 

GOTOl 1 80 

: rem 

209 

1 590 

REM * *STAMPA IL FILE** 

: rem 

21 4 

1 600 

PRINT" {CLR} POS IZ IONA LA 

CARTA SU 

STA 


MPANTE E {DES } PREMI UN{ 

2 SPAZI} TASTO 


VI 

: rem 

1 93 

1 61 0 

GOSUB490 :OPEN4 , 4, 7 :CMD4 

:FORR=l TOTY 



: rem 

1 87 

1 620 

PS=1 :FORK=l TOC: PRINTNS (K) " : "MID$ (RC$ 


( R) , PS, L (K) ) : PRINT :PS=PS+L(K) 




: rem 

1 8 

1 630 

NEXT: PRINT : NEXT : PRINT# 4 

:CLOSE4 : GOTOl 


1 80 

: rem 

1 36 

1 660 

REM ** MEMORI A LIBERA** 

: rem 

1 8 

1 670 

PRINT" {CLR} ATTENDERE. . . 

" : BY=FRE ( 0 ) - ( 


FRE (0) <0) *65536 

: rem 

1 95 

1 680 

PRINT" {CLR} "BY"BYTE LIBERI ": GOSUB3 50 


: GOTOl 1 80 

: rem 

1 40 

1 690 

REM **FINE OPERAZIONI** 

: rem 

126 

1 700 

INPUT" {CLR} CONFERMAI 2 

SPAZI }N 



{ 3 SIN } " ; A$ : IFA$ <> "S "THENl 180 




: rem 

247 

1 71 0 

END 

: rem 

160 
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Ecco un gioco in versioni per 
VIC 20 e C16-PIus/4 che farà 
rimpiangere a molti di non tro- 
varsi più sui banchi di scuola. 
La versione per VIC 20 richiede 
un'espansione di memoria da al- 
meno 3 Kbyte. 

I l gioco della battaglia navale si può 
tranquillamente definire un classico: 
due scacchiere quadrettate vengono 
usate come campo di battaglia, sul qua- 
le i due giocatori dispongono le proprie 


navi. 

Poiché il vostro avversario sarà il com- 
puter, esso disporrà le proprie navi sul- 
la scacchiera di sinistra - naturalmente 
senza mostrarvi la loro posizione -, men- 
tre voi dovrete disporre le vostre sulla 
scacchiera di destra. Il computer è mol- 
to onesto e non sbircerà mai la posizio- 
ne delle vostre navi (più che sbirciare, 
visto il soggetto, si dovrebbe parlare di 
PEEK...), che potranno essere disposte 
in qualunque posizione: attaccate ai 
bordi della scacchiera, adiacenti tra lo- 
ro, o in diagonale; non è invece ovvia- 


mente possibile sovrapporre tra loro 
due navi. 

Sia voi che il computer disponete di una 
corazzata e di un incrociatore con lun- 
ghezza di 5 quadratini, un cacciatorpe- 
diniere di lunghezza 4, un sommergibile 
di lunghezza 3 e una corvetta (chiamata 
MAS nella versione per VIC 20) di lun- 
ghezza 2. 

Il computer vi chiederà di inserire le 
vostre navi sulla scacchiera, digitando 
le loro coordinate di inizio e fine separa- 
te da un trattino (ad esempio: E4-E6). 
Qualsiasi valore non corretto verrà rifiu- 
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Joystick speciali per gente speciale 

Dai campione! 


Primo in 




Design 

Sta comodamente in mano. 
Disponibile anche la 
versione per mancini. 


Qualità 

Secondo il giudizio del 
prestigioso mensile 
"Commodore Horizons" 
merita la media di 9/1 0: 
precisione 9, robustezza 8, 
facilità d'uso 1 0. 

Il massimo! 


Dai, campione! 
Fai vedere chi sei con 

Speedking. 




tuo 


Tecnologia 

Microswitch per la masima 
precisione negli spostamenti 
e la massima rapidità 
di fuoco. 


Non è un errore, ma 
la pacchia è solo fino al 30/5 


Per il tuo CI 6 Joystick+ 

3 cassette giochi originali 


Non perdere tempo. 
Ritaglia e spedisci 
oggi stesso a: 


Tutti i prezzi comprendono 
IVA e spese di spedizione 

Pagherò al postino alla consegna 

Nome Cognome 


Inviatemi 

□ Speedking+3 cassette giochi originali 
L.55.000 anziché L.67.000 
(solo se spedisci entro il 30/5) 


J.soft srl 

Viale Restelli, 5 
20124 Milano 
Tel. 02/6880841 -3 


Indirizzo 

CAP/ Città 


Cod Fise (solo se si desidera fattura) 

Data 

Firma 



I 




tato ed occorrerà ripetere l’inserimen- 
to. 

La battaglia si svolge con un tiro ciascu- 
no, semplicemente inserendo le coordi- 
nate del tiro stesso: sarà il computer 
che provvederà a segnalare sul video 


l’effetto sortito, sia dai suoi che dai vo- 
stri colpi. 

Con la massima onestà il computer vi 
avviserà se avete affondato una delle 
sue navi, in modo non dobbiate spreca- 
re altri colpi attorno ad essa. La sua 


strategia nel cercare di affondare la vo- 
stra flotta non è casuale, ma dotata di 
una certa “intelligenza artificiale”, che 
gli permette di risultare ( un ottimo av- 
versario. 

Buon divertimento! 


Battaglia navale 

versione per VIC 20 

1 1 0 INPUT" {CLR} ISTRUZIONI" ; Z$ : IFLEFT$ ( Z$ , 
1 ) <>"S"GOTO2 50 : rem 247 

120 PRINT" {GIU' } ABBIAMO 5 NAVI A TESTA" 


: rem 1 33 

130 PRINT"NON SI POSSONO VEDERE LE NAVI D 



EL NEMICO; " 

: rem 

98 

1 40 

PRINT "SPARANDO SUL NEMICO," 

: rem 

1 53 

1 50 

PRINT"UN COLPO A VUOTO VIENE 

ii 




: rem 

220 

1 60 

PRINT "SEGNATO DA ' W', MENTRE" 

: rem 

26 

1 70 

PRINT"UN CENTRO DA '{RVS} {OFF}'. 

It 



: rem 

1 24 

1 80 

PRINT" INSERISCI LE NAVI CON" 

: rem 

1 78 

1 90 

PRINT" LE COORD. DI INIZIO E" 

: rem 

69 

200 

PRINT"FINE (ES. 'E4-E6 ' ) . " 

: rem 

57 

220 

PRINT" {GIU' } BUONA FORTUNA! PREMI 



{ 2 SPAZI} UN TASTO PER" 

: rem 

1 89 

230 

PRINT" INI Z IARE " 

: rem 

75 

240 

GETZ$ : IFZ$=""GOTO240 

: rem 

1 39 

250 

DIM B ( 9, 9, 1 ) ,N$(4) ,L(4) ,H(4, 

1 ) :R= 

TI 



: rem 

21 9 

260 

PRINT" {CLR} BATTAGLIA NAVALE" 

: rem 

60 

270 

DATA CORAZZ . , INCROC. , CACCI A, 

SOMMERG . , 


MAS 

: rem 

19 

280 

DATA 5 , 5 , 4 , 3 , 2 

; rem 

1 03 


290 FOR J=0 TO 4 : READ N$(J):NEXT J:FORJ = 0 
T04 :READL( J) : NEXT J :rem 229 

300 R=R/1 000 :Rl =RND (-R) : IFR>lGOTO300 

:rem 104 

310 PRINT "LE MIE { 7 SPAZI} LE TUE" 

: rem 80 

320 Z=0 :Z$=" [<A>] [< 8 R>] [<S>] ":GOSUBll 30 

: rem 2 

330 Z$=" [<Q> ] { 8 +} [<W>] " :FORZ=l T08 :GOSUB 
1 1 30 :NEXT Z : rem 225 

340 Z$=" [<Z>] [< 8 E> ] [<X>] " : GOSUBl 1 30 

: rem 7 

3 50 Z$ = " {HOME}{ 14 GIU'}" : rem 152 

360 E$=Z$+"{ 22 SPAZI} {SU}" : rem 189 

370 PRINT"ABCDEFGHI J" : rem 34 

380 PRINTZ$ ; "POSIZIONA LE TUE NAVI" 

: rem 142 

390 FORJ= 1 T03 000 : NEXTJ :PRINT" { SU } E DAMMI 
LE COORDINATE" : rem 38 

400 FORL=OTOl : FORJ=0TO9 : FORK=OTO9 :B ( J , K , L 
) =0 :NEXTK, J, L :rem 150 

41 0 FORL=OTOl :FORJ=0TO4 :H ( J, L) =0 : NEXTJ, L 

:rem 245 

420 FORC=0TO4 :rem 4 

430 REM INPUT COORDINATE : rem 243 

438 PRINTES ;N$ (C) ; " (L. " ; L (C ) ; " ) " 

: rem 1 86 

439 INPUTY$ : GOSUBl 1 40 : IFE=lGOTO430 

:rem 121 

440 XI =X:Y1=Y: GOSUBl 1 50 : IFE=1 GOTO430 

:rem 221 

450 L=L(C) : IFX< >Xl ANDABS (X-Xl ) OL-1GOT043 
0 :rem 34 

460 IFYOYl ANDABS (Y-Yl ) OL-1G0T0430 

:rem 132 


470 IF Y= Yl ANDX=Xl GOTO 4 3 0 :rem 11 

480 Y2=SGN ( Yl - Y) : X2=SGN (XI -X) :Y3=Y:X3=X 

: r em 171 

4 90 FORJ= 1 TOL- 1 :IFB(X3,Y3,0) O0G0T0430 

:rem 254 

500 IFX2*Y2<>0THENIFB (X3+X2,Y3, 0) =B (X3,Y3 
+Y2, 0) THENIFB (X3, Y3+Y2, 0) O0G0T043 0 

:rem 247 

510 X3=X3+X2 : Y3=Y3+Y2 : NEXTJ :rem 166 

520 IFB (X3,Y3, 0) O0G0T0430 :rem 210 

530 PRINTZ$ : FORI = 1 T03 : PRINT" { 21 SPAZI}": 

NEXT : rem 213 

535 Y$ = "Q" : FORJ= 1 TOL : B (X , Y , 0 ) =C+1 :GOSUBl 1 
90 :X=X+X2 :Y=Y+Y2: NEXTJ, C : rem 136 

540 PRINTES ; "SONO PRONTO !": S=0 :H9=0 

: r em 114 

550 FORC=0TO4 :L=L(C) : rem 171 

560 D=INT (RND (1 ) *4) :Xl=L-l :Yl=L-l 

: rem 113 

570 IFD = 2THENX1 =0 : rem 3 

580 IFD=0THENY1 =0 :rem ; 3 

590 X= INT (RND ( 1 ) *(10-Xl) ) : IFD=3THENX=X+Xl 

: rem 1 80 

600 Y=INT (RND ( 1 ) * ( 1 0- Y 1 ) ) : Y3=Y: X3=X: X2=SG 
N ( 2-D ) : Y2=SGN (Yl ) : rem 185 

61 0 FORJ=l TOL - 1 : IFB (X3, Y3, 1 ) O0G0T0560 

: rem 253 

620 IFX2*Y2< >0 THENIFB (X3+X2,Y3, 1 ) =B(X3,Y3 
+Y2, 1 ) THENIFB (X3,Y3+Y2, 1 ) O0G0T0560 




: rem 

1 

630 

X3=X3+X2:Y3=Y3+Y2: NEXTJ 

: rem 

169 

640 

IFB (X3, Y3, 1 ) O0G0T0560 

: rem 

21 8 

650 

FOR J = 1 TOL : B ( X , Y , 1 ) =C+1 : X=X+X2 : Y=Y+Y2 : 


NEXTJ,C 

: rem 

249 

660 

REM 

: rem 

128 

670 

PRINTE$ ; : INPUT"TIRO" ; Y$ 

: rem 

21 0 

680 

GOSUBl 1 40: IFE=lGOTO660 

: rem 

53 

690 

B=B (X , Y , 1 ) : IFB>9GOTO660 

: rem 

66 

700 

B (X , Y , 1 ) =B+1 0 :Y$="W" : IFB=0GOTO740 




: rem 

202 

71 0 

Y$ = " { RVS } ":H (B-l , 1 ) =H(B-1 

, 1 ) +1 : IFH (B 


-1,1) <L(B-1 ) GOTO740 

: rem 

83 

720 

PRINTE$ ;N$ (B-l ) ; " { RVS } AFFONDATO" 

: FOR 


C=1 TO500 : NEXTC : FORC=0TO4 : IFH (C , 1 ) <L(C 


) GOTO740 

: rem 

1 76 

730 

NEXTC: GOTO 1 240 

: rem 

86 

740 

GOSUBl 200 

: rem 

222 

750 

0NSG0T081 0,890 

: rem 

43 

760 

X= INT (RND ( 1 ) *1 0) : Y= INT (RND (1 ) *1 0) 




: rem 

92 

770 

B=B (X , Y , 0) : IFB<9GOTO950 

: rem 

64 

780 

X=X+3 : IFX< 1 0GOTO770 

: rem 

127 

790 

X=X- 1 0 : Y=Y+1 : IFY< 1 0GOTO770 

: rem 

54 

800 

Y= Y- 1 0 : GOTO770 

: rem 

38 

81 0 

XI =X9-D:X2=X9+D:Yl =Y9-D: Y2 

=Y9+D 




: rem 

105 

820 

IFXl < 0THENX1 =0 

: rem 

67 

830 

IFYl < 0THENY1 =0 

: rem 

70 

840 

IFX2>9THENX2=9 

: rem 

91 

850 

IFY2>9THENY2=9 

: rem 

94 

860 

FORX=Xl TOX2 : FORY=Yl TOY2 

: rem 

63 

870 

B=B (X , Y , 0) : IFB<9GOTO950 

: rem 

65 
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880 NEXTY,X:D=D+1 :G0T081 0 :rem 35 
890 X=X9 : Y=Y9 :rem 41 
90 0 X=X+X8 : Y=Y+Y8 : IFX< 0ORX>9ORY< OORY>9GOT 


0930 : rem 

910 B=B(X,Y,0) : IFB<9GOTO950 :rem 

920 B=B- 1 0 : IFB>0GOTO900 :rem 

930 IFSl =1 THENS=1 :G0T081 0 :rem 

940 Si =1 :X8=-X8:Y8=-Y8:GOTO890 :rem 
950 B (X ,Y , 0) =B + 1 0 : Y$ ="W" :H7 = 0:H8 = SGN(B) :H 
9=H9+H8 :X$=" ACQUA": IFB=0GOTO980 

:rem 52 

960 B=B- 1 : Y$ = " { RVS } " : X$="CENTRO" :H(B,0) = 
H(B;0)+1 : IFH (B, 0) <L(B)GOTO980 

:rem 64 

970 H7 = 1 :H9 = H9-L(B) :X$ = "AFF. " + N$(B) 

: rem 116 

980 GOSUBll 90 :PRINTE$ ; "IO ";X$;" IN ";CHR 
$ (X+65) ; CHR$ (Y+48) : FORJ=1 TOl 000 :NEXTJ 


207 

60 

53 

25 

45 


1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 


1 ) <>"S"GOTO250 : rem 247 

PRINT" {GIU 1 }OGNUNO DI NOI POSSIEDE 5 
NAVI SULLA" : rem 254 

PRINT" GRIGLIA. NON SI POSSONO VEDERE 
LE NAVI" : rem 196 

PRINT"DELL' AVVERSARIO; SPARANDO SULLA 
GRIGLIA" : rem 195 

PRINT"DEL NEMICO, UN COLPO A VUOTO VI 
ENE MO-" : rem 97 

PRINT" STRATO COME W, MENTRE UN COLPO 
A SEGNO" : rem 20 

PRINT "VIENE MOSTRATO COME {RVS} {OFF} 
." :rem 79 

PRINT" INSERISCI LE COORDINATE DI INIZ 
IO E DI" : rem 189 

PRINT"FINE NAVE, AD ESEMPIO UN SOMMER 
Gl BILE" : rem 156 

PRINT" (LUNGHEZZA 3) PUÒ' ESSERE POSIZ 




: rem 

248 


IONATO 

11 

: rem 

224 

990 

FORJ = 0TO4 : IFH ( J, 0) <L ( J) GOTOl 01 0 


21 0 

PRINT" 

CON ' E4-E6 ' . " 

: rem 

225 



: rem 

61 

220 

PRINT" 

{GIU'} BUONA FORTUNA! 

PREMI 

UN T 

1 000 

NEXTJ: GOTOl 250 

: rem 

1 33 


ASTO PER" 

: rem 

1 89 

1 01 0 

ONSGOTOl 040,1 090 

: rem 

1 66 

230 

PRINT" 

INIZIARE " 

: rem 

75 

1 020 

IFH8=1 THENS=1 :D=1 :X9=X: 

Y9=Y: rem 

222 

240 

GETZ$ : 

IFZ$=" "GOTO240 

: rem 

! 39 

1 030 

GOTO670 

: rem 

1 54 

250 

DIM B ( 9 , 9, 1 ) ,N$(4) ,L(4) ,H(4 

,1) :R= 

TI 

1 040 

IFH9=0THENS=0 :GOTO670 

: rem 

65 




: rem 

21 9 

1050 

IFH8=0GOTO670 

: rem 

24 

260 

PRINT" 

{CLR} BATTAGLI A NAVALE 

" : rem 

60 


1060 X8=X-X9 :Y8=Y-Y9:Sl =0 :rem 

1 070 IFX8=SGN (X8) ANDY8=SGN (Y8) THENS=2 

: rem 

1080 GOTO670 :rem 

1090 IFH7=0GOTO670 :rem 

1100 S=1 : rem 

Ilio IFH9=OTHENS=0 :rem 

1120 GOTO670 :rem 

1 1 30 PRINTZ $ ; CHR$ ( Z+48) ; Z$ : RETURN 

rem 


* 

* 


245 

73 
1 59 
27 
1 31 
47 
1 54 

33 


1 1 40 

P=1 :E=0 

: rem 

1 1 2 


1 1 50 

FOR Z=PTOLEN (Y$) -1 :X=ASC (MID$ (Y$ , 

Z) ) 

330 


-65 : IFX>=OANDX< = 9GOTOl 1 70 

: rem 

207 


1 1 60 

NEXTZ : E= 1 : RETURN 

: rem 

1 04 

340 

1 1 70 

FOR P=ZTOLEN(Y$) :Y=ASC(MID$ (Y$,P) )-4 



8: IFY>=0ANDY<=9THENRETURN 

: rem 

122 

3 50 

1 1 80 

NEXTP : GOTOl 1 60 

: rem 

1 48 

V 

3 60 

1 1 90 

PRINT" { HOME } " ; TAB ( 1 1 ) ; :GOTOl 210 


U V 



: rem 

230 

370 

1 200 

PRINT" {HOME}" ; 

: rem 

226 


1 21 0 

FORQ=l TOY+2 :PRINT" {GIU 1 }"; 

: NEXT Q 


380 



: rem 

228 


1 220 

FORQ= 1 TOX+1 : PRINT" { DES } : 

NEXT Q 


390 



: rem 

239 


1 230 

PRINT" {SIN} " ; Y$ : RETURN 

: rem 

6 

400 

1 240 

GOSUBl 200 :PRINTE$ ; "HAI VINTO":GOTOl 3 



00 

: rem 

82 

41 0 

1 2 50 

PRINT: PRINT"HO VINTO! ECCO 

LE MIE 

; na 



VI..." 

: rem 

230 

420 

1 260 

FORX=0TO9 : FORY=0TO9 

: rem 

20 

430 

1 270 

B=B ( X , Y , 1 ) : IFB=OORB>9GOTOÌ 290 





: rem 

237 

440 

1 280 

Y$ = "Q" : GOSUBl 200 

: rem 

23 


1 290 

NEXTY : NEXTX 

: rem 

53 

450 

1 300 

PRINTZ$ ; " { 5 GIU' } ANCORA"; 

: rem 

146 


1 31 0 

INPUTY$ : IFLEFT$ (Y$ , 1 ) <>"N" 

THENRUN 


460 



: rem 

69 



Battaglia navale 

versione per C16-Plus/4 


100 COLORO, 1 :COLOR4, 1 : COLORI , 2 :rem 47 
1 10 INPUT" {CLR} ISTRUZIONI" ;Z$:IFLEFT$ (Z$, 


270 DATA CORAZZATA, INCROCIATORE, CACCIA, SO 
MMERGI BILE, CORVETTA :rem 15 

280 DATA 5, 5, 4, 3, 2 :rem 103 

290 FOR J=0 TO 4: READ N$(J):NEXT J:FORJ=0 
TO 4 : RE ADL ( J ) : NEXT J :rem 229 

300 R=R/1 000 :Rl =RND (-R) : IFR>1GOTO300 

:rem 104 

310 PRINT "LE MIE { 7 SPAZl}LE TUE" 

: rem 80 

Z = 0 : Z$ = " [<A>] [< 8 R> ] [ <S> ] " : GOSUBl 1 30 

: rem 2 

Z$=" [<Q>] { 8 +} [<W>] ":F0RZ=1T08:G0SUB 
1 1 3 0 : NEXT Z :rem 225 

Z$="[<Z>][< 8 E>] [<X>] ": GOSUBl 1 30 

: rem 7 

Z $ = " { HOME } { 15 GIU'}" : rem 169 

E$ = Z$ + "{ 40 SPAZ I } { SU } " : rem 189 

PRINT" tttttttttt" : PRINT" ABCDEFGHIJ" 

: rem 217 

PRINTZ? ; "POSIZIONA LE TUE NAVI " 

:rem 24 

FOR J =1T03000: NEXT J : PRI NTE$ ; " D AMM I LE 
COORDINATE DI OGNI NAVE..." : rem 98 

FORL=OTOl : FORJ=0TO9 :FORK=0TO9 : B ( J , K , L 
) =0:NEXTK, J,L :rem 150 

FORL=0TOl :FORJ=0TO4:H(J,L) =0:NEXTJ,L 

:rem 245 

FORC=0TO4 :rem 4 

PRINTE$ ;N$ (C) ; " (LUNGH . " ; L (C ) :IN 
PUTY$ :GOSUBl 1 40 : IFE = 1 GOTO430 : rem 50 

XI =X: Y1 =Y: GOSUBl 1 50 : IFE=1 GOTO43 0 

:rem 221 

L=L (C ) : IFX< >X1 ANDABS (X-Xl ) OL-1GOT043 
0 :rem 34 

IFYOY1 ANDABS (Y-Y1 ) OL-1G0T0430 

:rem 132 

470 IFY=Y1 ANDX=XlGOTO430 :rem 11 

480 Y2=SGN (Yl -Y) : X2=SGN (XI -X) :Y3=Y:X3=X 

:rem 171 

490 FORJ=1 TOL-1 : IFB (X3, Y3, 0) O0G0T043 0 

:rem 254 

500 IFX2*Y2O0THENIFB (X3+X2, Y3, 0) =B (X3,Y3 
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+Y2, 0) THENIFB (X3,Y3+Y2, 0) O0G0T0430 



: rem 

247 

510 

X3=X3+X2 : Y3=Y3+Y2 : NEXTJ 

: rem 

1 66 

520 

IFB (X3,Y3, 0) O0G0T0430 

: rem 

21 0 

530 

Y$="Q" : FORJ= 1 TOL : B (X , Y , 0) 

=C+1 : GOSUBl 1 


90 : X=X+X2 : Y= Y+ Y2 : NEXTJ ,C 

: rem 

131 

540 

PRINTE$ ; "SONO PRONTO!" :S= 

0 :H9=0 




: rem 

1 1 4 

550 

FORC=0TO4 :L=L (C ) 

: rem 

1 71 

560 

D= INT (RND ( 1 ) * 4 ) : XI =L-1 :Yl 

=L— 1 




■ : rem 

1 1 3 

570 

IFD=2THENXl =0 

: rem 

3 

580 

IFD=0THENY1 =0 

: rem 

3 

590 

X= INT (RND ( 1 ) * ( 1 0-X1 ) ) : IFD 

=3THENX=X+X1 



: rem 

1 80 

600. 

Y= INT (RND ( 1 ) * ( 1 0-Yl ) ) : Y3= 

Y:X3=X:X2 

= SG 


N ( 2-D ) : Y2=SGN (Yl ) 

: rem 

1 85 

61 0 

FORJ=l TOL - 1 : IFB (X3,Y3, 1 ) O0G0T0560 



* 

: rem 

253 

620 

IFX2*Y2< >0 THENIFB (X3+X2,Y3, 1 ) =B (X3 

,Y3 


+Y2, 1 ) THENIFB (X3,Y3+Y2, 1 ) O0G0T0560 



: rem 

1 

630 

X3=X3+X2:Y3=Y3+Y2: NEXTJ 

: rem 

1 69 

640 

IFB(X3,Y3, 1 ) O0G0T0560 

: rem 

21 8 

650 

FOR J = 1 TOL : B ( X , Y , 1 ) =C+1 :X= 

X+X2 : Y=Y+Y2 : 


NEXTJ ,C 

: rem 

249 

660 

PRINTE$ ; 

: rem 

205 

670 

INPUT" .TIRO"; Y$ 

: rem 

1 49 

680 

GOSUBl 1 40 : IFE=1 GOTO660 

: rem 

53 

690 

B=B(X,Y,1) : IFB>9GOTO660 

:rem * 

66 

700 

B (X ,Y , 1 ) =B+1 0 : Y$ = "W" : IFB = 

0GOTO740 




: rem 

202 

71 0 

Y$ = " { RVS } ":H (B-l , 1 ) =H(B- 

1 , 1 ) +1 : IFH (B 


-1,1) <L (B-l ) GOTO740 

: rem 

83 

720 

PRINTE$ ;N$ (B-l ) ; " { RVS } AFFONDATO" : 

FOR 


C=1 TO500 :NEXTC : FORC=0TO4 : 

IFH (C , 1 ) <L(C 


) GOTO740 

: rem 

1 76 

730 

NEXTC: GOTOl 240 

: rem 

86 

740 

GOSUBl 200 

: rem 

222 

750 

ONSGOT081 0, 890 

:rem 

43 

760 

X=INT (RND ( 1 ) *1 0) : Y=INT (RND ( 1 ) *1 0) 




: rem 

92 

770 

B=B (X , Y , 0) : IFB<9GOTO950 

: rem 

64 

780 

X=X+3 : IFX< 1 0GOTO770 

: rem 

1 27 

790 

X=X-10:Y=Y+1 : IFY< 1 0GOTO770 :rem 

54 

800 

Y=Y- 1 0 : GOTO770 

: rem 

38 

81 0 

Xl =X9-D : X2=X9+D: Yl =Y9-D : Y2=Y9+D 




: rem 

105 

820 

IFXl < 0THENX1 =0 

: rem 

67 

830 

IFYl < 0THENY1 =0 

: rem 

70 

840 

IFX2>9THENX2=9 

: rem 

91 

850 

IFY2>9THENY2=9 

: rem 

94 

860 

FORX= XI TOX2 : FORY=Yl TOY2 

: rem 

63 

870 

B=B (X , Y , 0) : IFB<9GOTO950 

: rem 

65 

880 

NEXTY,X:D=D+1 :GOT081 0 

: rem 

35 

890 

X=X9 : Y=Y9 

: rem 

41 

900 

X=X+X8 : Y=Y+Y8 : IFX<0ORX>9ORY< OORY>9GOT 


0930 

: rem 

207 


91 0 

B=B (X , Y , 0) : IFB<9GOTO950 

:r em 

60 

920 

B=B- 1 0 : IFB>0GOTO900 

: rem 

53 

930 

IFSl =1 THENS= 1 : GOTO 81 0 

: rem 

25 

940 

Si =1 :X8=-X8:Y8=-Y8: GOTO890 

: rem 

45 

950 

B (X , Y , 0) =B+1 0:Y$="W":H7=0:H8 

=SGN ( B) 

: H 


9=H9+H8 : X$="ACQUA" : IFB=0GOTO930 




: rem 

52 


960 B=B-1 :Y$="{RVS} " : X$="CENTRO" :H (B, 0) = 
H ( B> 0) +1 : IFH (B, 0) <L ( B) GOTO980 




: r em 

64 

970 

H7=l : H9=H9-L ( B) :X$="AFFONDO 

"+N$ (B) 



: rem 

1 1 8 

980 

GOSUBl 1 90 :PRINTE$ ; "IO " ; X$ ; 

" IN " 

; CHR 


$ (X+65 ) ;CHR$ (Y+48) ; : FORJ= 1 TOl 000 : 

NEXT 


J 

: rem 

51 

990 

FORJ = 0TO4 :IFH ( J, 0) <L ( J) GOTOl 01 0 




: rem 

61 

1 000 

NEXTJ: GOTOl 250 

: rem 

1 33 

1 010 

ONSGOTOl 040,1090 

: rem 

166 

1 020 

IFH8=1 THENS=1 :D=1 :X9=X:Y9= 

Y : rem 

222 

1 030 

GOTO670 

: rem 

1 54 

1 040 

IFH9=0THENS=0 :GOTO670 

: rem 

65 

1050 

IFH8=0GOTO670 

: rem 

24 

1 060 

X8=X-X9 : Y8=Y- Y9 : SI =0 

: rem 

245 

1 070 

IFX8=SGN (X8) ANDY8=SGN (Y8) THENS=2 




: rem 

73 

1 080 

GOTO670 

: rem 

1 59 

1 090 

IFH7=0GOTO670 

: rem 

27 

1 1 00 

S= 1 

: rem 

1 31 

ino 

IFH9=0THENS=0 

: rem 

47 

1 1 20 

GOTO670 

: rem 

1 54 

1 1 30 

PRINTZ$;"-";CHR$ (Z+48) ; " " 

; Z$ : RETURN 



: rem 

126 

1 1 40 

P=1 :E=0 

: rem 

1 1 2 

1 1 50 

FOR Z=PTOLEN (Y$ ) - 1 :X=ASC (MID$ (Y$ 

, Z) ) 


-65 : IFX>=OANDX< = 9GOTOl 1 70 

: rem 

207 

1 1 60 

NEXTZ :E=1 : RETURN 

: rem 

1 04 

1 1 70 

FOR P=ZTOLEN(Y$) :Y=ASC(MID$ (Y$,P) )-4 


8 : IFY>=0ANDY< = 9THENRETURN 

: rem 

122 

1 1 80 

NEXTP: GOTOl 1 60 

: rem 

1 48 

1 1 90 

PRINT" {HOME}" ;TAB (13); : GOTOl 21 0 




: rem 

232 

1 200 

PRINT" {HOME} " ; 

: rem 

226 

1 21 0 

FORQ=l TOY+2 :PRINT" {GIU' 

: NEXT 

Q 



: rem 

228 

1 220 

FORQ= 1 TOX+1 : PRINT" { DES } " ; : 

NEXT Q 

! 



: rem 

239 

1 230 

PRINT" { SIN } " ; Y$ : RETURN 

: rem 

6 


1 240 GOSUBl 200 :PRINTE$ ; "HAI VINTO" : GOTO! 3 
00 :rem 82 

1250 PRINT : P RI NT "HO VINTO! ECCO LE MIE NA 



VI " 

: rem 

230 

1 260 

FORX=0TO9 :FORY=0TO9 

: rem 

20 

1 270 

B=B (X ,Y , 1 ) : IFB=OORB>9GOTOl 290 

: rem 

237 

1 280 

Y$="Q" : GOSUBl 200 

: rem 

23 

1 290 

NEXTY : NEXTX 

: rem 

53 

1 300 

PRINTZ$ ; " { 4 GIU'} ANCORA" 

; ; rem 

129 

1 31 0 

INPUTYS : IFLEFT$ (Y$, 1 ) <>"N" 

THENRUN 



* 

: rem 

69 
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Ecco un programma che rende 
ano scherzo l’effettuazione di 
complicati calcoli previsionali, o 
più semplicemente la piccola e 
comune contabilità domestica. 

Q uasi tutti sanno esattamente che 
cosa sia un word processor o un 
database, mentre il concetto di “foglio 
elettronico" rimane per lo più vago o 
del tutto sconosciuto. 


Lo spreadsheet - nome inglese del foglio 
elettronico - altro non è che la versione 
informatica di un normale foglio di car- 
ta, usato in contabilità per incolonnare 
cifre e numeri. 

Uno spreadsheet è composto da una 
serie di celle , ognuna delle quali contie- 
ne un dato. Le celle sono individuate, 
con il principio delle coordinate carte- 
siane, dal loro numero di riga e di colon- 
na. Il numero contenuto nella cella 


(3,10) sarà quindi il decimo valore della 
riga 3 o, in modo equivalente, il terzo 
valore della colonna 10. Ciò equivale a 
dire che il numero contenuto nella cella 
(3,10) si troverà in corrispondenza del- 
l’intersezione tra la riga 3 e la colonna 
10. 

Per spiegarci meglio, ricorriamo a titolo 
di esempio a un “micro-spreadsheet”, 
composto da 4 righe per 6 colonne. Es- 
so potrà avere il seguente aspetto: 
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Col.l 

Co 1.2 

Col. 3 

Col. 4 

Col. 5 

Col. 6 

Riga 1: 

100 

55 

0 

0 

0 

0 

Riga 2: 

250 

125 

0 

0 

0 

0 

Riga 3: 

50 

350 

0 

0 

0 

0 

Riga 4: 

500 

200 

0 

0 

0 

0 

Riga 5: 

0 

0 

0 

0 

0 

0 


Nell’esempio i dati sono stati inseriti sol- 
tanto nelle colonne 1 e 2; la cella (1,1) 
contiene il valore 100, la (1,2) il valore 
55, la (2,1) il valore 250 e così via... 
Rispetto al tradizionale foglio di carta 
per contabilità, uno spreadsheet offre 
molteplici vantaggi: tra questi possiamo 
elencare: 

- totale precisione nei calcoli: il rischio 
di commettere errori in calcoli lunghi e 
ripetitivi viene completamente elimina- 
to dairinfallibilità del computer in que- 
ste operazioni; 

- estrema facilità di modifiche alFinterno 
del foglio: per modificare un numero in 
una cella basta ridigitarlo secondo le 
proprie esigenze; 

- riutilizzabilità: una volta definite le for- 
mule di calcolo che ci occorrono, è sem- 
plicissimo compiere delle analisi cosid- 
dette what if? (cosa succede se?...), mo- 
dificando i parametri e ricalcolando i to- 
tali. 


Si noti che i tassi di interesse per le 
rispettive opzioni sono casuali, e che il 
totale della loro colonna è privo di signi- 
ficato. 

Per applicare questo modello a Super- 
Cale occorrerà definire quattro colonne 
(Capitale, Tasso, Ricavo, Guadagno) e 
cinque righe (Dep. bancario, B.O.T., 
Azioni S.p A., C.C.T. e Totale). Inoltre 
occorrerà definire le relazioni matemati- 
che che intercorrono tra i valori: la co- 
lonna Ricavo è definita come il prodotte 
del Capitale per il Tasso, sommato al 
Capitale. La colonna Guadagno è defi- 
nita come il prodotto tra il Capitale e il 
Tasso, mentre la riga Totale è definita 
come somma di tutti i numeri di ciascu- 
na colonna. 

Una volta che siano state definite que- 
ste correlazioni tra i dati sarà facile ef- 
fettuare analisi del tipo “Cosa se?”, 
semplicemente modificando a piacere i 
valori nello spreadsheet, in quanto il 
programma ricalcolerà automaticamen- 
te i valori interdipendenti. Ad esempio, 
se si decidesse di investire in B.O.T. ven- 
ticinque milioni invece di trenta, basterà 
cambiare questo valore per avere istan- 
taneamente ricalcolati guadagni e tota- 
li. 

Dando il RUN a SuperCalc, apparirà 


Uno spreadsheet può essere utilizzato 
per molteplici scopi, come il calcolo di 
budget, previsioni di investimento, cal- 
colo di profitti e perdite, resoconti di 
spese sostenute e comunque per tutti 
quei compiti che implicano Fuso intensi- 
vo di dati numerici. 

* 

Utilizzare SuperCalc 

L’uso del programma è semplice: nella 
maggior parte dei casi sarà esso stesso 
a richiedervi i dati di cui abbisogna. 
L’unica parte che richiede attenzione è 
la definizione iniziale del modello di cal- 
colo dello spreadsheet. Dal momento 
che il sistema migliore per imparare è 
- come sempre - la sperimentazione, ve- 
dremo di passare in rassegna le possibi- 
lità di SuperCalc attraverso un esempio 
pratico. 

Consideriamo il seguente modello per 
quattro diversi tipi di investimento: 


una lista di comandi nella parte bassa 
dello schermo: è questo il modo di ope- 
razione normale e se fosse stato prece- 
dentemente definito un modello, questo 
verrebbe visualizzato al di sopra della 
lista di comandi. Accingiamoci quindi a 
definire il nostro semplicissimo model- 
lo. 

Definire un modello 

Entriamo in Modo Programma premen- 
do il tasto P. Lo schermo si pulisce, una 
lista di numeri appare nella sua parte 
sinistra e una nuova lista di comandi 
viene visualizzata in basso. La lista di 
numeri a sinistra rappresenta un insie- 
me di numeri di linea: sarà in queste 
linee che immagazzineremo la definizio- 
ne del nostro modello. 

A questo scopo usiamo il comando Inse- 
rimento premendo il tasto I. Il computer 
ci chiederà prima di quale linea deside- 
riamo inserire il testo: rispondiamo con 
1. Questa linea ora contiene un END, 
che rappresenta l’ultima istruzione nel- 
la definizione del modello. 

Il computer chiederà quindi quante li- 
nee desideriamo inserire: rispondiamo 
con 12. 

Righe e colonne 

A partire dalla linea 1 fino alla 12 il 


computer attenderà Finserimento di da- 
ti per ciascuna linea. Per la linea 1 digi- 
tate: 

1 NAME RA=DEPBNC 

Il numero di linea (1) non deve - per 
precisione - essere digitato, in quanto è 
generato automaticamente dal pro- 
gramma. Questa linea assegna alla pri- 
ma riga del nostro esempio il nome 
DEPBNC, contrazione di “Depositi Ban- 
cari”, e sarà in seguito visualizzata nella 
parte sinistra dello schermo quando ri- 
torneremo nel modo di operazione nor- 
male. 

Nel termine RA, R indica che stiamo 
assegnando il nome a una riga, mentre 
A indica che si tratta della riga A, cioè 
la prima. 

Sono ammessi al massimo sei caratteri 
per il nome di una riga. 

Esistono in totale 20 righe, ognuna delle 
quali è contraddistinta da una lettera 
dell’alfabeto. Ora inserite: 

2 NAME RB=BOT 

3 NAME RC=AZIONI 

4 NAME RD=CCT 

5 NAME RE=TOTALE 

Abbiamo così assegnato un nome a tut- 
te e cinque le righe del nostro modello. 
Possiamo ora iniziare ad assegnare i no- 
mi alle colonne, digitando: 

6 NAME C1=CAPITALE,8 

Questa istruzione assegna alla prima . 
colonna, la numero 1, il nome CAPITA- 
LE. Anche qui C sta per colonna, men- 
tre il “,8” ne definisce la larghezza di 
otto caratteri (sufficienti quindi a conte- 
nere un numero di otto cifre). Se non 
viene assegnata alcuna larghezza, il 
programma assume per default il valore 

6 (un consiglio per risparmiare memoria 
e... nascondere l’inflazione: inserite nei 
vostri modelli i dati in unità di 1000 li- 
re!). 

Ogni elemento nella colonna, compreso 
il suo stesso nome, potrà dunque avere 
nel nostro esempio una lunghezza mas- 
sima di otto caratteri. 

Continuate gli inserimenti con: 

7 NAME C2=TASS0,5 

8 NAME C3=R1CAV0,8 

9 NAME C4=GUADAGNO,8 

Il prossimo passo sarà la definizione del- 
le formule che permettono il calcolo dei 
valori richiesti. 

La definizione delle formale 

La prossima linea che dovremo definire 
potrà sembrare un po’ insolita: è la pri- 
ma espressione matematica che usia- 
mo, e il suo scopo è definire la colonna 
RICAVO uguale al prodotto delle co- 
lonne CAPITALE e TASSO, sommato 
alla colonna CAPITALE. 

Inserite in questo modo la linea 10: 

10 DEFINE@3=@ r@ 2 +@ 1 

Innanzi tutto, ogni elemento (cella) nella 
matrice di righe e colonne possiede una 
sua univocità: ad esempio la cella C2 


Dep. bancario 

Capitale 

10000000 

Tasso/ 100 

0.105 

Ricavo 

11050000 

Guadagno 

1050000 

B.O.T. 

30000000 

0.128 

33840000 

3840000 

Azioni S.p. A. 

25000000 

0.012 

25300000 

300000 

C.C.T. 

1000000 

0.100 

1100000 

100000 

Totale 

66000000 

0.345 

71290000 

5290000 
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sarà data dall’incrocio della riga C con 
la colonna 2. 

Il comando DEFINE pone il contenuto 
di una cella uguale a un’espressione 
contenente altri elementi ed eventuali 
costanti (come ad esempio 2 o 0.56). 
Può essere usata una qualsiasi delle 
quattro operazioni fondamentali (addi- 
zione, sottrazione, moltiplicazione e di- 
visione), anche se non viene seguita al- 
cuna priorità nell’esecuzione delle ope- 
razioni. 

In un comando di definizione può risul- 
tare utile considerare più di una singola 
cella per volta, e ciò si ottiene usando 
il simbolo© . 

© può essere usato per sostituire la 
designazione sia di una riga che di una 
colonna. Per esempio, nel comando DE- 
FINE di cui sopra @ 3 indica tutte le 
righe della colonna 3: esso potrebbe es- 
sere tradotto a parole con “Ogni riga 
della colonna 3 equivale a ogni riga del- 
la colonna 1 per ogni riga della colonna 
2, sommata a ogni riga della colonna 
1 ”. 

Quando inserite questo genere di co- 
mandi, assicuratevi che il carattere @ 
preceda il numero di colonna e segua la 
lettera corrispondente alla riga. Quan- 
do viene eseguita un’istruzione DEFI- 
NE, viene per prima cosa considerata 
la prima cella presente nell’istruzione: 
se è presente il simbolo© , viene ese- 
guito un ciclo, in modo che ogni riga (o 
colonna, in dipendenza al formato usato 
nell’istruzione) venga calcolata secondo 
la formula contenuta nella DEFINE 
stessa. 

Per esempio, incontrando @ 3, il pro- 
gramma considera ogni colonna nel ci- 
clo come colonna corrente, calcola 
l’espressione e assegna il risultato alla 
colonna corrente. Al contrario, se il ca- 
rattere @ compare all’interno della 
cella, viene sostituito dal valore corren- 
te. 

Per esempio, se la cella contiene© 1, 
esso verrà sostituito dal valore della co- 
lonna corrente. 

Anche se questa descrizione potrà ap- 
parire complicata, in realtà il modo di 
operare del programma è molto sempli- 
ce: con un po’ di pratica e sperimenta- 
zione diventerà molto facile costruire 
relazioni matematiche anche molto 
complesse. 

Procediamo nel nostro inserimento di 
linee, digitando: 

11 DEFINE© 4= © 1’ © 2 

12 DEFINE E © =A © +B © +C © +D © 

Anche queste istruzioni seguono le re- 
gole precedenti: la 11 significa “Poni in 
ogni cella della colonna 4 il risultato del 
prodotto tra ogni cella della colonna 1 
e ogni cella della colonna 2”. 

La linea 12 significa: “Poni in ogni co- 
lonna della riga E il risultato della som- 
ma tra ogni riga A, B, C e D”. 
Nell’inserimento di ogni linea di pro- 
gramma si può naturalmente usare il 
tasto DEL per correggere eventuali er- 
rori di digitazione e se vi accorgete di 


aver commesso un errore in una linea 
precedente, potete utilizzare il coman- 
do CHANGE per sostituirla in un secon- 
do tempo. Se vi siete dimenticati una 
linea, usate INSERT per inserirla nella 
sua giusta posizione. 

Si noti che l’ordine in cui vengono im- 
messe le istruzioni DEFINE è molto im- 
portante, poiché ognuna di esse può al- 
terare certi contenuti delle celle che 
verranno utilizzate dalle DEFINE se- 
guenti. 

Per fare un po’ di pratica con il modello 
che abbiamo appena definito ritornate 
al modo di operazione normale, pre- 
mendo il tasto E (EXIT): lo schermo si 
pulisce, visualizzando i nomi di righe e 
colonne, le quali per ora contengono 
degli zeri. Il prossimo passo sarà, come 
è ovvio, sostituire questi zeri con i valori 
che ci interessano. 

L’inserimento dei dati 

Il comando CHANGE VALUE permet- 
te di modificare qualsiasi valore sullo 
schermo. Per utilizzarlo premete il tasto 
C, e il programma vi chiederà riga e 
colonna. Usate la designazione vista 
precedentemente (per esempio A3, ri- 
ga A e colonna 3). Vi verrà quindi ri- 
chiesto il valore da inserire nella cella 
considerata. 

Una volta digitato anche quest’ultimo, 
esso sarà visualizzato nella sua giusta 
posizione. 

Il primo passo sarà inserire i valori dei 
Tassi nella colonna 2: usate CHANGE 
VALUE per inserire i valori elencati nel- 
lo specchietto precedente. Infine an- 
dranno inseriti i valori per il Capitale 
nella colonna 1, usando l’analogo pro- 
cedimento. - 

Alla fine dell’inserimento dei dati sarà 
sufficiente premere il tasto R (RE- 
DRAW SCREEN) per avere visualizzati 
dopo un certo tempo i risultati di tutti 
i calcoli. 

Avete così creato il vostro primo model- 
lo finanziario; fate qualche esperimen- 
to, modificando uno o più valori del Ca- 
pitale o del Tasso, e premete ancora R: 
in pochi secondi vengono visualizzati i 
risultati per la nuova situazione modifi- 
cata. 

Una volta compreso appieno il funzio- 
namento di SuperCalc potrete inserirvi 
modelli sempre più sofisticati ed effet- 
tuare in un baleno analisi “Cosa se?”, 
che richiederebbero ore e ore di calcoli, 
se fatte con carta e matita. 

Registrazione e caricamento 
dei modelli 

SuperCalc è dotato delle funzioni SAVE 
WORKSHEET e LOAD WORK- 
SHEET, che permettono di salvare e 
ricaricare su disco i modelli e i dati che 
sono stati inseriti. 

Esse sono accessibili attraverso la pres- 
sione dei tasti S ed L, ed accettano no- 
mi di file lunghi fino a 10 caratteri. 
SuperCalc è fornito per essere utilizzato 
con il disk drive; se invece desiderate 
utilizzare il registratore a cassette, sosti- 


tuite semplicemente all’interno del pro- 
gramma le seguenti linee: 

51 0 OPEN 1 ,1,1,1$ 

610 OPEN 1 ,1 , 0 , 1$ : IF STO0THEN670 
1610 OPENl ,1,1,1$ iFORX»! TOl 00 
1710 OPENl ff 1 f 0,I$:IF STOOTHENl 750 

Ecco ora un elenco di tutti i comandi e 
delle istruzioni disponibili all’interno di 
MultiCalc: 

CHANGE VALUE: permette di cam- 
biare il valore contenuto in una qualun- 
que delle celle dello spreadsheet. Usare 
la designazione standard per la cella 
(esempio: A3) 

REDRAW SCREEN: ricalcola tutti i 
valori sulla base delle istruzioni DEFINE 
inserite in modo programma. 

SAVE WORKSHEET: salva il conte- 
nuto del foglio elettronico, compreso il 
set di istruzioni inserito in modo pro- 
gramma. 

LOAD WORKSHEET: carica in me- 
moria un foglio elettronico salvato con 
il comando di cui sopra. 

EXIT: ritorna al BASIC. 

PROGRAM MODE: entra in modo 
programma, in cui possono essere usati 
i seguenti comandi: 

INSERT: inserisce una o più linee di 
programma nella lista di istruzioni. 

LIST: esegue un listato di una parte di 
programma. Il listato viene effettuato a 
partire da un dato numero di linea fino 
a quel numero più venti. 

DELETE: permette di cancellare un 
gruppo di linee di programma, 

CHANGE: permette di modificare una 
linea di programma inserita in maniera 
errata. 

SAVE: salva su memoria di massa le 
linee di programma, ma non i numeri 
del foglio elettronico. 

READ: legge da memoria di massa le 
linee di un programma salvato con il 
comando precedente. 

EXIT: ritorna al modo di operazione 
normale. 

Le seguenti istruzioni sono invece utiliz- 
zabili in modo programma: 

NAME: assegna il nome ad una riga o 
colonna, e definisce la larghezza di una 
colonna. Esempio: NAME C3=TEST,4. 

DEFINE: pone una cella uguale a 
un’espressione. Esempio: DEFINE A3 
= C3 + Bl. 

Note finali 

SuperCalc è limitato da un numero 
massimo di 20 righe e, in dipendenza 
dalla larghezza selezionata, 5 o 6 colon- 
ne. Questa limitazione lo rende più che 
mai adatto all’elaborazione di calcoli di 
gestione casalinga, anche se è teorica- 
mente possibile effettuare calcoli finan- 
ziari più complessi. Infine, ancora qual- 
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re usate nelle formule, come ad esem- 
pio lo zero nell’istruzione di cui sopra; 

- il comando READ può essere usato 
anche per caricare un programma sal- 
vato con SAVE WORKSHEET, senza 


tuttavia caricare anche i dati numerici; 
- se si esce dal programma con EXIT, 
digitando GOTOIOO è possibile rien- 
trarvi senza perdere i dati correntemen- 
te in RAM. 


che parola suH’utilizzo del program- 
ma: 

- il comando DEFINE @@ —0 azzera 
completamente il foglio elettronico; 

- si ricordi che le costanti possono esse- 

SuperCalc per C16 

10 REM SUPERCALC PER CI 6 :rem 120 

20 REM : rem 70 

30 DIMPC% ( 1 1 0) ,PC$ (110) ,WK (20, 9) ,RN$ (20) , 
CN$ (9) ,CW (9) ,CP ( 9) : rem 43 

40 X=0 :SL=0 :LL=0 :L=0 :CC=0 :CR=0 :rem 10 

45 R$ (1 ) = "DEFINE" : R$ (2) ="NAME":R$ (3) ="END 
":PC%(1)=3 :rem 210 

50 S$ = "{ 39 SPAZI}" : rem 93 

60 C$=" { HOME} { 23 GIU'}" :rem 232 

65 COLOR4 , 1 : CO LORO, 1 :PRINT" {WHT} " 

:rem .209 

70 PRINTCHR$ (14); " {CLR} " LEFTS (C$ , 8) TAB ( 1 0 
) "SUPERCALC Cl 6" : rem 1 93 

80 REM :rem 76 

90 PRINTLEFT$ (C$,24) TAB( 8) "RETURN PER CON 
TINUARE{ 2 SPAZI}"; rGOSUBl 0000 

: rem 21 6 

100 GOSUB5000 :rem 214 

105 GOSUB6000 :rem 220 

110 PRINT" {RVS}P{ OFF } ROGRAM MODE {RVS}C 

{OFF}HANGE VALUE {RVS}R{OFF}EDRAW SCR 
EEN" : rem 180 

120 PRINT" {RVS}S {OFF} AVE WORKSHEET {RVS} 


L{OFF}OAD WORKSHEET {RVS}E{OFF}XIT" 




: rem 

209 

1 30 

GOSUBl 0000 

: rem 

5 

1 60 

IFX$ = "R"THENl 00 

:rem 

53 

1 70 

IFX$ = "E"THENPRINT" {CLR} " : END 

: rem 

1 3 

1 80 

IFX$ = "S "THEN500 

: rem 

60 

1 90 

IFX$="L"THEN600 

: rem 

55 

200 

IFX$ = "P"THENl 000 

: rem 

94 

21 0 

IFX$="C"THEN400 

: rem 

37 

220 

GOTOl 05 

: rem 

99 

400 

GOSUB6000 :PRINT"CAMBIA RIGA 




{ 3 SPAZI} :"; : GOSUBl 0000 : PRINT 




: rem 

140 


410 CR= ASC (X$ ) -64 ; IFCRC 1 ORCR>20THENl 0 5 

: rem 8 

415 PRINT"CAMBIA COLONNA; ";: GOSUBl 0000 : PR 
INT ;rem 249 

420 CC=VAL(X$) : IFCC=0THEN1 05 :rem 138 
430 PRINT"NUOVO VALORE; 1=20 :GOSUB9000 ; 

WK(CR,CC)=VAL(I$) : rem 52 

440 GOSUB5700 :GOTO! 05 :rem 237 

500 GOSUB6000 : PRINT"SAVE WORKSHEET; 1=1 
0 :GOSUB9000 ; IFI$=""THENl 05 :rem 102 
510 OPENl , 8, 2, I$+" ,S,W" :rem 197 

51 5 FORX= 1 TOl 00 ;PRINT#1 ,PC% (X)CHR$ (1 3)CHR 
$ (34) PC$ (X)CHR$ (1 3) ; :rem 228 

520 IFPC% (X) 03THENNEXT :rem 162 

530 FORCR=l TO20 ;FORCC = l T09 :PRINT#1 ,WK(CR, 
CC ) CHR$ (13);: NEXT ; NEXT :rem 220 

540 PRINT#1 , CHR$ (13) ; :CLOSEl :GOTO100 

;rem 124 

600 GOSUB6000 :PRINT"LOAD WORKSHEET: ";: 1=1 
0 : GOSUB9000 : IFI$ = " "THEN1 05 :rem 88 
61 0 OPENl ,8,2, I$ + " , S , R" : IFSTO0THEN670 

:rem 167 

620 FORX=l TOl 00 :INPUT#1 ,X$,PC$ (X) :T=ST:PC 
% (X) =VAL(X$) : IFTO0THEN670 :rem 88 
630 IFPC% (X) 03THENNEXT :rem 164 

640 FORCR=l TO20 :FORCC= 1 T09 : INPUT# 1 ,X$:T=S 


T:WK (CR,CC) =VAL(X$) : IFSTOOTHENb /0 

:rem 249 

650 NEXT: NEXT :CLOSEl :RC=1 :GOTOl 00 

: rem 1 1 7 

670 PRINT"I/0{ 2 SPAZ I } ERROR . " : PRINT"UN T 
ASTO PER CONTINUARE "; :GOSUBl 0000 

:rem 235 

680 CLOSEl :RC=1 :GOTO 100 :rem 134 

1 000 FL= 1 : rem 193 

1 01 0 PRINT" {HOME} "; :FORX=FLTOFL+20 :PRINTS 
$ :PRINT" {SU} "X;R$ (PC% (X) ) " "PC$ (X) :N 
EXT : rem 1 57 

1020 GOSUB6000 :rem 9 

1 030 PRINT" { RVS }_I { OFF } NSERT {RVS} L{OFF} IS 
T { RVS } D{OFF } ELETE { RVS }C {OFF } HANGE 
{ RVS } S{ OFF } AVE { RVS } R{OFF } EAD" 





: rem 

34 

1 035 

PRINT" { RVS } E{ OFF }XIT" 

: rem 

248 

1 040 

GOSUBl 0000 

: rem 

54 

1 050 

IFX$ = "E" 

THENRC= 1 : GOTOl 00 

: rem 

205 

1 060 

IFX$ = " I " 

THE Ni 200 

: rem 

142 

1070 

IFX$="L" 

THENl 300 

: rem 

147 

1 080 

IFX$="D" 

THENl 400 

: rem 

141 

1 090 

IFX$ = "C" 

THENl 500 

: rem 

1 42 

1 1 00 

IFX$="S" 

THENl 600 

: rem 

1 51 

11 1 0 

IFX$ = "R" 

THENl 700 

: rem 

1 52 

1 1 20 

GOTOl 020 


: rem 

1 92 


1200 GOSUB6000 :PRINT"INSERIRE PRIMA DELLA 
LINEA:"; :GOSUB8990 :SL=VAL( 1$) 

: rem 121 

1210 IFSL=0THEN1 020 :rem 81 

1220 PRINT "QUANTE LINEE? GOSUB8990 :N=V 
AL ( 1$ ) : Ni =1 00-N : IFN=0THEN1 020 

: rem 247 

1230 FORX=Nl TOSLSTEP- 1 :PC%(X+N) =PC%(X) : PC 
$ (X+N) =PC$ (X) :NEXT : rem 120 

1 235 N=N- 1 : FORL=SLTOSL+N : GOSUB8000 : NEXT 

: rem 1 

1 240 GOTOl 01 0 : rem 194 

1300 GOSUB6000 :PRINT"INIZIO ALLA LINEA:"; 

:GOSUB8990 :rem 115 

1 320 IFVAL ( 1$ ) =0ORVAL( 1$ ) >80THENl 020 

: rem 61 

1330 FL=VAL( 1$) : GOTOl 01 0 :rem 108 

1400 GOSUB6000 :PRINT"ELIMINA DALLA LINEA: 
"; :GOSUB8 990 :SL=VAL ( 1$ ) : IFSL=0THEN1 0 
20 : rem 99 

1410 PRINT "ALLA: " ; : GOSUB8990 : LL=VAL ( 1$ ) :I 
FLL=0THEN1 020 : rem 42 

1420 N=LL-SL+1 :FORX=SLTOl 00-N:PC% (X) =PC% ( 
X+N) :PC$ (X) =PC$ (X+N) :NEXT :rem 241 
1 430 GOTOl 010 ; rem 195 

1500 GOSUB6000 : PRINT"CAMB I A LA LINEA:"; :G 
OSUB8 990 :L=VAL ( 1$ ) : rem 23 

1510 GOSUB8000 :GOTOl 01 0 : rem 68 

1600 GOSUB6000 :PRINT"SAVE PROGRAM: ";: 1= 1 0 
:GOSUB9000 : IFI$=""THENl 020 :rem 33 
1 61 0 OPENl , 8, 2, I$ + ",S,W" : FORX=l TOl 00 

: rem 1 8 

1 620 PRINT# 1 ,PC% (X)CHR$ (1 3)CHR$ (34) PC$ (X) 
CHR$(13); :rem 247 

1 630 IFPC% (X) 03THENNEXT : rem 213 

1640 CLOSEl : GOTOl 000 : rem 166 

1700 GOSUB6000 :PRINT"LOAD PROGRAM: ";: 1= 1 0 
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1 71 0 

1 720 

1 730 

1 740 

1 750 

1 760 

4999 

5000 

5005 

5007 

5010 

5020 

5030 

5040 

50 50 

5060 

51 00 

51 10 

51 20 

51 30 

51 40 

5200 

521 0 

5300 

5310 

5400 

5405 

541 0 

5420 

5450 

5460 

5470 

5480 

5490 

5495 

5500 

551 0 

5520 

5540 

5550 

5560 

5565 

5570 


:GOSUB9000 : IFI$=" "THEN1020 

: rem 

19 



: rem 

59 

OPEN! ,8, 2, I$ + " ,S,R": IFSTOOTHENl 750 

5580 

TR=ASC (TR$ ) -64 : IFTR<lORTR>2 0THENTR=C 

/ ... ,.*■ U '• 

; ^ 

: rem 

9 


R 

: rem 

168 

FORX= 1 TOl 00: INPUT#! , X$ , PC$ (X) :PC% (X) 

5590 

TC=VAL (TC$ ) : IFTC<l0RTC>9THENTC=CC 

=VAL(X$) 

: rem 

133 



: rem 

1 55 

IFPC% (X) 0 3THENNEXT 

: rem 

21 4 

5600 

V=WK ( TR , TC ) 

: rem 

186 

CLOSEl :GOTOl 000 

: rem 

167 

561 0 

IFOP$="+"THENT=T+V 

: rem 

95 

PRINT"I/0 { 2 SPAZI }ERROR": 

PRINT" 

UN T 

5620 

IFOP$="-"THENT=T-V 

: rem 

1 00 

ASTO PER CONTINUARE " ; : GOSUBl 0000 

5630 

IFOP$="/"THENT=T/V 

: rem 

105 


: rem 

237 

5640 

IFOP$="*"THENT=T*V 

: rem 

96 

CLOSEl :GOTOl 000 

: rem 

169 

5650 

IFX<LEN(X$) THENOP$=MID$ (X$ 

#X# 1 ) z 

GOTO 

END 

: rem 

1 82 


5520 

: rem 

1 85 

IFRC=0THEN54 00 

: rem 

78 

5660 

WK(CR,CC)=T 

: rem 

1 56 

FORX=l T09 :RN$ (X)="":CN$ (X) 

="":CW(X) = 

5670 

IFRR=1 THENNEXTCR 

: rem 

1 1 8 

0 :CP (X) =0 :NEXT 

: rem 

21 8 

j 5680 

IFRC=1 THENNEXTCC 

: rem 

89 

FORX= 1 0TO20 :RN$ (X) ="" : NEXT 

: rem 

79 

5690 

RR=0 :RC=0 :NEXTL 

: rem 

230 


RC=0 : FORL= 1 TOl 00:IFPC%(L) =3THEN531 0 

:rem 93 

IFPC% (L) 02THEN5300 :rem 78 

X$=LEFT$ (PC$ (L) , 1 ) :N$=MID$ (PCS (L) ,2, 


1) 

: rem 

25 

IFX$ = "C" THEN5 1 00 

: rem 

141 

IFX$="R"THEN5200 

: rem 

1 58 

GOTO5900 

: rem 

21 0 

FORX= 4 TOLE N ( PC$ ( L) ) 

: IFMID$ (PC$ (L) 

,x. 


1 ) <>" , "THENNEXT:LN=5 : GOTO 51 20 

:rem 195 

LN=VAL(MID$ (PC$ (L) ,X+1 ) ) : rem 85 
N=VAL(N$) : IFN=0THEN5900 :rem 122 

CN$ (N) =MID$ (PC$ (L) , 4 , X- 4 ) :CW(N) =LN 


AB (CP (X) +7) RIGHT$ (S$+CN$ (X) ,CW(X) ) ; 

:rem 236 

NEXT: PRINT :rem 208 

FORX=l TO20 :PRINT" {RVS} "LEFTS (RN$ (X) , 
6) : NEXT : rem 1 30 

FORL=1 TOl 00: IFPC% (L) =3THEN5700 

:rem 44 

IFPC% (L) <>1 THEN5690 : rem 97 

X$=LEFT$ ( PCS ( L) ,2) : AC=VAL(RIGHT$ (X$, 
1 ) ) : IFAC<lORAC>9THENAC=0 :rem 76 

AR=ASC (X$) -64:IFAR<10RAR>20THENAR=0 


5700 PRINT" {HOME} {GIU’ :FORCR=l TO20 : IFR 
N$ (CR) =""THEN5795 :rem 34 

571 0 FORCC=l T09 : PRINTTAB (CP (CC) +7) ; 

:rem 122 

5720 X$=MID$ (STR$ (WK (CR,CC) ) ,2) : rem 220 

5730 IFLEN (X$ ) <=CW (CC ) THEN5790 : rem 248 
5740 FORX=l TOLEN (X$ ) : IFMIDS (X$ ,X, 1 ) <>" ."T 
HENNEXT:GOTO5790 :rem 227 

5750 N$=LEFT$ (X$,X-1 ) :rem 126 

5760 IFLEN ( N$ ) <CW (CC ) THENNS =N$+MID$ (X$ ,X, 
CW (CC ) -LEN (N$ ) ) : rem 230 

5780 X$=N$ : rem 255 

5790 PRINTRIGHTS (S$+X$ ,CW (CC) ) ; INEXTCC 

: rem 74 


: rem 

140 

5795 

PRINT :NEXTCR 

: rem 

117 

GOTO5300 :rem 

203 

5800 

RETURN 

: rem 

173 

N=ASC (N$) -64 :IFN<10RN>20THEN5900 


5900 

GOSUB6000 :PRINT"ERRORE DI SINTASSI N 

: rem 

147 


ELLA"L 

: rem 

161 

RN$ (N) =MID$ (PCS (L) ,4) :rem 

107 

591 0 

PRINT"UN TASTO PER 

CONTINUARE " ; 

: GOS 

NEXTL :rem 

83 


UBI 0000 

: rem 

147 

CP ( 1 ) =0 :F0RX=2T09 :CP (X) =CP (X- 1 ) +CW (X 

5920 

RETURN 

: rem 

176 

- 1 ) +ABS (CW (X ) >0 ) : NEXT :rem 

164 

6000 

PRINTLEFTS (C$ , 22) S$ 

:PRINTS$ :PRINTS$ : 

PRINT" {CLR} "C$ "ATTENDERE ..." 



PRINTLEFTS (C$,22) ; 

: rem 

1 1 8 

: rem 

126 

6010 

RETURN 

: rem 

167 

PRINT" {HOME} {RVS}"; : FORX=l T09 : PRINTT 

8000 

GOSUB6000 :PRINTL; 

: rem 

92 


801 0 1 = 3 5 : GOSUB9000 : IFI$ = ""THEN8000 

:rem 232 

8020 FORX=l TOLEN (1$) : IFMIDS ( 1$ ,X , 1 ) <>" "T 
HENNEXT : rem 73 

8030 PC$ (L) =MID$ (I$,X+1 ) :PC%(L) =0 

:rem 244 

8040 X$=LEFT$ (I$,X-1) : FORX= 1 T03 : IFX$=R$ (X 
) THENPC % ( L) =X • : rem 235 

8050 NEXT: RETURN :rem 38 

8990 1=3 :GOSUB9000 :rem 22 

8992 IFVAL ( 1$ ) < lORVAL ( 1$ ) >1 00THENI$="" 


: rem 168 

CC=AC: IFAC=0THENRC=1 :FORCC=lT09 

:rem 246 

CR=AR: IFAR=0THENRR=1 :FORCR=l TO20 

: rem 1 1 1 

IFMIDS (PC$ (L) ,3,1) <>" = "THEN5900 

:rem 176 

X$=MID$ ( PC$ ( L) ,4) :OP$="+":S=l :T=0 

:rem 38 

FORX=STOLEN(X$) :N$=MID$ (X$,X,1 ) : IFN$ 
= " + "ORN$ = " - " ORN$ = "/ "ORN$ = " * " THEN55 5 0 

:rem 166 

NEXTX : rem 1 01 

N$=MID$ (X$,S,X-S) :S = X+1 : rem 74 

IFN$ = " 0 "ORVAL ( N$ ) <>0THENV= VAL ( N$ ) : GO 
T0561 0 :rem 26 

IFLEN (N$ ) 0 2THEN5900 :rem 175 

TR$ =LEFT$ ( N$ , 1 ) : TC$=RIGHT$ ( N$ , 1 ) 




: reitì 

167 

8995 

RETURN 

:rem 

1 91 

8999 

1 = 3 

:rem 

1 56 

9000 

1$ = "" 

: rem 

183 

901 0 

GETXS :IFX$=""THEN901 0 

:rem 

229 

9020 

C= ASC (X$) : IFC=20THEN9060 

: rem 

152 

9025 

IFC=1 3THENPRINT" ": RETURN 

:rem 

93 

9030 

IF (03 1 ANDC<95) OR (C>1 92ANDC<21 9) THEN 


9040 

: rem 

74 

9035 

GOTO901 0 

:rem 

21 2 

9040 

IFLEN (1$) =ITHEN901 0 

: rem 

120 

9050 

PRINTXS ; : I$ = I$+X$ :GOTO901 0 

:rem 

71 

9060 

IFI$=""THEN901 0 

:rem 

69 

9070 

PRINTXS ; : I$=LEFT$ ( 1$ , LEN ( 1$ ) - 1 ) : 

GOTO 


9010 

: rem 

105 

1 0000 

REM 

: rem 

21 3 

1 0010 

GETXS : IFX$="" THENl 001 0 

:rem 

53 

1 0020 

PRINTXS; : RETURN 

:rem 

81 
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di T. Marazita 

trad, e adatt. 

di A. Borra 




Chissà che effetto farebbe avere 
la coda! Certo* detta così la cosa 
appare banale e priva di senso 
pratico, ma proviamo ad astrarci 
un attimo dalla realtà e lasciamo 
correre la mente» Sicuramente 
sarebbe di impiccio: rischierem- 
mo di chiuderla dentro le porte, 
o di farcela calpestare in auto- 
bus» E poi come si potrebbe dor- 
mire supini, con quella protube- 
ranza che ci spunta dal didie- 
tro? 


D Jaltro canto ci sono anche i lati 
positivi: aumenterebbe il nostro 
equilibrio (e che fine farebbero gli equili- 
bristi del circo?), potrebbe magari servi- 
re come terzo arto (chissà come sareb- 
be una partita di calcio!?) e certamente 
diverrebbe un importante simbolo este- 
tico. Ma sicuramente il più grosso pro- 
blema sarebbe quello della locomozio- 
ne; se poi addirittura la coda continuas- 
se a crescere con continuità... eh no! 
calma: questa non è più fantasia: è 
ZAPI, il divertente gioco che stiamo per 
presentare. 

Il gioco 

Come si sarà capito, il gioco simula il 
movimento, in un ambiente chiuso, di 
un serpente dalla coda che si allunga 
sempre più. Lo scopo del gioco è quello 
di guidarlo alla caccia dei bersagli che 
di volta in volta appaiono sullo scher- 
mo, e velocemente, perché dopo poco 
essi scompaiono. Il movimento è ottenu- 
to mediante la tastiera, con gli otto tasti 
attorno alla “L” per la scelta delle otto 
direzioni possibili (ma Pesperienza con- 
siglia di non utilizzare le quattro direzio- 
ni diagonali, perché difficili da controlla- 
re), mentre il tasto “L” consente di 
“congelare” il gioco per permettere una 
boccata di respiro nei momenti di mag- 
giore difficoltà: ciò è soprattutto utile 
quando la coda è così lunga da intralcia- 
re pesantemente i movimenti (e vedrete 
che, data la velocità del gioco, ciò av- 
verrà assai presto). 


Il gioco avrà termine dopo 6 “incidenti”, 
che possono essere sia scontri con la 
propria coda che contatti con i muri 
elettrici (zap!) che delimitano la zona di 
movimento. Alla fine viene segnalato il 
punteggio e la percentuale di bersagli 
colpiti. 

Dopo questo gioco vi convincerete che 
“Mamma Natura” non ha sbagliato a 
toglierci la coda! 

Commenti al listato 

Dopo la schermata introduttiva e le 


istruzioni (i due GOSUB alle linee 150 
e 170) inizia il gioco vero e proprio, con 
il disegno dei limiti della zona di movi- 
mento (linee 230-260). Quindi c’è il ci- 
clo di decodifica del tasto premuto e la 
chiamata alle varie routine: aggiorna- 
mento punteggio, movimento serpente 
e posizionamento bersagli. Al raggiungi- 
mento di 6 scontri il controllo passa alla 
routine di stampa dei risultati finali 
(870-970) che propone una ulteriore 
partita. 
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Zap! per C16 -Plus/4 


1 00 

REM** ZAP ! * * 

: rem 

4i 

1 1 0 

COLOR4 ,10,1: COLORO , 1 : PRINT" { 

CLR) " 




: rem 

1 9 

1 20 

PRINT" {WHT} " 

: rem 

105 

1 30 

DIMWM (255) 

: rem 

255 

1 40 

EE=1 8 :HP=EE- 1 

: rem 

1 88 

1 50 

GOSUBl 280 

: rem 

225 

1 60 

DIMA (255) 

: rem 

1 59 

1 70 

GOSUBl 080 

: rem 

225 

1 80 

COLORO , 2 

: rem 

1 66 

1 90 

PRINT" {CLR} " 

: rem 

254 

200 

COLORO , 1 

: rem 

1 58 

2 1 0 

PO=4 070 

: rem 

58 

220 

S= 1 

: rem 

85 

230 

FORX=31 1 3T031 1 2+38 :POKEX, 1 00 

: NEXT 




: rem 

208 

240 

FORX= 3 1 1 2+4 0TO3072+( 40*23) STEP4 0: 

POKE 


X , 1 03 :NEXT 

: rem 

224 

250 

FORX= 3073+(40*24) T04 070 : POKEX ,99: 

NEXT 



: rem 

1 50 

260 

FORX=4 0 71 -40 TO 4071 - (40*22) STEP-40 

: POK 


EX, 1 01 : NEXT 

: rem 

21 

270 

GOSUBl 060 

: rem 

224 

2 80 

FORI = l TOl 0 : GETA$ : NEXT 

: rem 

52 

290 

GOTO550 

: rem 

1 1 0 

300 

A$ = "O " : GOTO 320 

: rem 

208 

31 0 

GETA$ 

: rem 

21 7 

320 

IFA$="K"THENDIR=- 1 

: rem 

254 

330 

IFA$ = "O "THEND I R= - 4 0 

: rem 

54 

340 

IFA$ = " : "THENDI R= 1 

: rem 

1 94 

350 

IFA$ = " . "THEND I R=4 0 

: rem 

234 

360 

IFA$ =" I "THENDI R=-4 1 

: rem 

52 

370 

IFA$ = "P "THEND I R= = 3 9 

: rem 

67 

380 

IFA$ = "/ "THEND I R= 4 1 

: rem 

239 

390 

IFA$ = " , "THENDI R= 3 9 

: rem 

244 

400 

IFA$="L"THENl 020 

: rem 

71 

41 0 

PO=PO+DIR 

: rem 

26 

420 

IFPO=4071 ORPO=4032ORPO=31 1 20RP0=31 51 T 


HEN760 :REM**ANGOLI** 

: rem 

234 

430 

IFPEEK (PO) =1 02THENGOSUB690 

: rem 

89 

440 

WM(HP) =PO: HP=HP+1 

: rem 

4 

450 

IFHP>EETHENHP=0 

: rem 

1 88 


460 IFPEEK (PO) >98ANDPEEK ( PO) < 1 02THEN760 

: rem 112 


470 IFPEEK (PO) >1 02ANDPEEK (PO) < 1 04THEN760 




: rem 

149 

480 

IFPEEK (PO) =81 THEN760 

: rem 

178 

490 

POKEPO, 81 

: rem 

0 

500 

R=INT(RND (1 ) *1 5) +1 : IFS>5THENZZ = 20 

: rem 

1 95 

51 0 

Pi = INT ( RND ( 1 ) *ZZ) +1 :ZZ=50 

: rem 

192 

520 

IFR=3THEN550 

: rem 

177 

530 

IFPl =3THEN630 

: rem 

224 

540 

GOSUB980 : GOT031 0 

: rem 

193 

550 

IFS>6THEN540 

; rem 

1 84 

560 

Q= INT (RND (0) *1 000) +(3072+160) 

: rem 

191 

570 

IFQ>4 0 30THEN560 

: rem 

75 

580 

IFPEEK (Q) O32THEN560 

: rem 

1 56 

590 

S=S+1 :H=H+1 :TC=TC+1 

: rem 

65 

600 

POKEQ, 1 02 

: rem 

21 3 

61 0 

A ( H) =Q: IFCV=1 THEN540 

: rem 

1 51 

620 

CV=1 : GOTO300 

: rem 

1 65 

630 

REM** ELIMINA I BERSAGLI** 

: rem 

1 82 

640 

P=INT(RND (0) *H) +1 

: rem 

1 50 

650 

IFPEEK ( A( P) ) <>1 02THEN6 80 

: rem 

92 

660 

POKEA(P) ,32 

: rem 

62 

670 

S=S-1 

: rem 

222 

680 

A(P) =A(H) : H=H- 1 :GOTO540 

: rem 

8 


690 

REM* ‘COLPITO UN BERSAGLIO** 

: rem 

1 28 

700 

SC=SC+1 0 

: rem 

1 40 

71 0 

S=S-1 

: rem 

21 7 

720 

EE=EE+2 

: rem 

71 

730 

IFEE> 2 50THENEE= 2 50 

: rem 

21 

740 

GOSUBl 060 

: rem 

226 

750 

RETURN 

: rem 

1 24 

760 

CR=CR+1 : REM** URTO** 

: rem 

1 1 2 

770 

GOSUBl 060 

: rem 

229 

780 

IFCS>LTHENL=CS 

: rem 

1 56 

790 

cs=o 

: rem 

1 63 

800 

EE= 1 8:HP=1 7 

: rem 

63 

81 0 

TP=0 

: rem 

1 70 

820 

cv=o 

: rem 

1 60 

830 

FORT= 1 T08 : FORX= 1 TOl 00 : NEXT : POKEPO 

, 209 


: FORXl =1 TOl 00 :NEXT:POKEPO, 81 

: NEXT 




: rem 

93 

840 

FORX=0TO255 : WM (X) =0 :NEXT:HP= 

1 7 :TP 

= 0 



: rem 

1 82 

850 

IFCR=6THEN870 

: rem 

2 

860 

GOTOl 80 

: rem 

1 1 2 

870 

PRINT" {CLR} { 6 GIU'}" 

: rem 

105 

880 

PRINT"HAI FATTO "SC" PUNTI" 

: rem 

43 

890 

PRINT 

: rem 

46 

900 

PRINT 

: rem 

38 

91 0 

PRINT"IL PUNTEGGIO MASSIMO ERA : " 

TC* 1 


0 

: rem 

255 

920 

PRINT 

: rem 

40 

930 

PRINT"HAI PRESO IL " ; INT ( ( SC/ (TC* 

10) ) 


*100);"% DEI BERSAGLI" 

: rem 

21 5 

940 

POKE239, 0 

: rem 

198 

950 

INPUT" { 2 GIU ' } VUOI GIOCARE 

ANCORA" ;P 

*- 

L$ 

: rem 

1 28 

960 

IFLEFT? ( PL$ , 1 ) ="S"THENRUN 

: rem 

227 

970 

PRINT" { 3 GIU' } C I AO ! " : END 

: rem 

242 

980 

LOC = WM (TP) :TP = TP + 1 : REM* ‘CANCELLA 

LA C 


ODA** 

: rem 

1 3 

990 

IFTP>EETHENTP=0 

: rem 

221 

1 000 

POKELOC , 32 

: rem 

95 

1 01 0 

RETURN 

: rem 

1 62 

1 020 

FORE= 1 TOl 71 : GETA$ : IFA$ <> " "THEN320 



: rem 

200 

1 030 

NEXTE : SC=SC- 1 0 : 1 FSC< 0THENSC 

= 0 




: rem 

1 1 8 

1 040 

GOSUBl 060 

: rem 

1 2 

1 050 

GOTOl 020 

: rem 

1 94 


1060 PRINT" {HOME) { 3 DES } PUNTI= "SC ; TAB ( 1 8 
) ; "NO. DI CRASHES = "CR : rem 227 

1 070 RETURN : rem 168 

1080 INPUT" { 2 GIU* } {YEL}VUOI LE ISTRUZIO 
NI";B$ :rem 242 

1090 IFLEFT$ (B$ , 1 ) ="S"THENl 110 :rem 130 

1100 RETURN : rem 162 

•1110 PRINT" {CLR} { 2 GIU'jDEVI CONTROLLARE 
UNO STRANO MISSILE!" :rem 182 

1120 PRINT" {GIU' }QUANDO I BERSAGLI '[<+>) 
'• APPAIONO SULLO" : rem 218 

1130 PRINT"SCHERMO, DEVI PRENDERLI. PER M 




UOVERE" 


: rem 

21 6 

1 1 

40 

PRINT"IL MISSILE 

USA LA CROCE:" 






: rem 

94 

1 1 

50 

PRINT" {GIU' } { 

1 3 

SPAZI} I{ 4 SPAZI 

}o 



{ 4 SPAZI }P" 


: rem 

1 45 

1 1 

60 

PRINT" { 18 SPAZI} T" : rem 

247 

1 1 

70 

PRINT" {GIU ' } { 

1 3 

SPAZIjK <- L -> 

• ti 

• 





: rem 

80 

1 1 

80 

PRINT" {GIU* } { 

1 8 

SPAZI }I" : rem 

245 

1 1 

90 

PRINT" { 13 SPAZI} 

, { 4 SPAZI} . 




{ 4 SPAZI*}/" 


: rem 

37 

1 200 

PRINT" {GIU ’ } E 

LE 

SUE DIAGONALI. 




{ 2 SPAZI} CON 

' L 1 

SI PUÒ'" : rem 

79 
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1210 PRI NT" FERMARE IL GIOCO." : rem 203 
1220 PRINT"OGN I BERSAGLIO VALE 10 PUNTI, 
MA IL" : rem 195 

1 230 PRINT" MISS ILE SI ALLUNGA " 

: rem 215 

1240 PRINT" {GIU' } IL GIOCO FINISCE DOPO 6 
CRASHES!" : rem 66 

1250 PRINT" { 2 GIU ' } PREMI 'SPAZIO' PER IN 
IZIARE IL GIOCO"; :rem 223 

1 260 GETZZ$ :IFZZ$=" "THENGOTOl 2 60 : rem 212 
1270 RETURN / :rem 170 

1280 PRINT" { 3 GIU ' } { 8 SPAZl}ZZZZZZ 
{ 3 SPAZI }AAA{ 3 SPAZI }PPPPPP 
{ 2 SPAZI }Q" : rem 95 

1290 PRINT" { 13 SPAZI} Z{ 2 SPAZI} A 

{ 3 SPAZ I } A{ 2 SPAZ I } P { 5 SPAZl}P Q 
" : rem 2 34 

1300 PRI NT" { 12 SPAZ I } Z { 2 SPAZl}A 

{ 5 SPAZ I } A P{ 5 SPAZ I } P Q" : rem 226 
1310 PRINT" { 10 SPAZ I } Z Z { 3 SPAZ I } AAAAAAA 

PPPPPP{ 2 SPAZ I } Q " : rem 194 

1320 PRINT" { 9 SPAZl}zf 5 SPAZl}A 

{ 5 SPAZI} A P{ 7 SPAZ I }Q" : rem 148 

1330 PRINT" { 8 SPAZ I } Z { 6 SPAZljA 

{ 5 SPAZI} A P" ; rem 196 

1340 PRI NT" { 8 SPAZ I } ZZZZZZ A{ 5 SPAZl}A 
P{ 7 SPAZ I }Q" ; rem 88 

1 350 PRINT" { 3 GIU'HYELH 8 SPAZl}CURSOR 
# 2 { 3 SPAZI} AGOSTO 1 978" : rem 68 

1360 PRINT" {GIU* } { 5 SPAZ I }COPYRIGHT 1978 






Michel Benelloul 

GIOCHI. TRUCCHI E CONTI 

■ ■ • \ ’ . . ’ „ " " ' * 

Questo libro è destinato soprattut- 
to ai programmatori principianti: 
con i suoi 29 programmi presentati 
con una ricca documentazione e 
pronti per essere eseguiti. Gli argo- 
menti sono tanti e rispondono alle 
esigenze più disparate. Il BASIC è 
quello dei calcolatori PET/CBM di 
cui vengono sfruttate a pieno le 
molte funzioni. 

^ 4 • ' •••:• > V .. • f •• ; : ;• . ... „ r 

Cod. 553D Pag. 164 Lire. 24.000 


■ r V ‘ 

, :V ‘ 


:. ■ .... . t 




. 






JACKSON 


Rita Bonelli 

Luciano Pazzucom - Fabio Racchi 
Giovanni Valerio 

COMMODORE 64 
LA GRAFICA E IL SUONO 


Ogni argomento viene spiegato e 
accompagnato da numerosi esem- 
pi commentati. Nel libro sono lista- 
ti moltissimi programmi; essi sono 
registrati sulla cassetta allegata. 
Inoltre la cassetta contiene anche 
altri programmi, ai quali si fa riferi- 
mento nel testo, ma senza listarli. 

Cod. 409B Pag. 270 Lire. 34.000 


- TOM MARAZITA" : rem 180 

1370 PRINT" { 3 GIU*} {PUR} { 4 SPAZI} ADATTA 
MENTO SU C-16 DI A. BORRA" : rem 142 
1 380 RETURN ; rem 1 72 


, ni r ■■ ' ■* r 
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LA TUA BIBLIOTECA 
PRATICA D’INFORMATICA 

PERSONALE 



Vivere 
col personal 
computer 


Dentro e fuori 
la scatola 

hardware e periferiche 
di un personal computer 


Ed è subito 
BASIC, voi I 


A ciascuno 
il suo Personal 

come sceglierlo 
in base alle esigenze 


Quaderni Jackson: l’infor- 
matica a tutti i livelli, in una 
collana aperta, pratica, 
essenziale, aggiornata. 
L’informatica tascabile per 
chi vuole saperne di più e 
compiere cosi un salto di 
qualità nel mondo di oggi e 
di domani. 

Ogni settimana. 1 volume. 


25 

I famosi Bitest 

prove rivisitate 
dei personal 
più popolari 


I Quaderni Jackson, tanti 
volumi monografici per co- 
noscere bene il personal 
computer e l’informatica. 
Nei Quaderni Jackson c'è 
tutto quello che è importan- 
te sapere sut computer la 
programmazione, i linguag- 
gi, il software, le applicazio- 
ni e i nuovi sviluppi dell’in- 
formatica. 


I QUADERNI 
JACKSON 


DI PERSONAL COMPUTER 


10 

La linfa 
del computer 

software di base 
e sistemi operativi 


23 

A qualcuno 
piace FORTH! 

anatomia 
d'un linguaggio astuto 


24 

Disegnare 
col personal 
computer 


16 

Il BASIC 
per l’immagine 

le basi della 
computergran ca 


22 

Il dBase, il principe 
dei data base 



r 17 ^ 

B word processing 

parole, parole: 
ma elaborate 
^ col personal a 


26 

Multiplan, 

spreadsheet 

multistrato 


11 

B sistema 
operativo CP/M 

il “software bus” 


Ed è subito 
BASIC, voi 2 


r 12 ^ 

Sistema 

Operativo MS DOS, 

lo standard creato 
^ dalla IBM ^ 


18 

Lotus 1-2-3 
e Symphony 

il fascino discreto 
deirintegrazione 


v 27 ' 

FORTRAN e COBOL 

linguaggi sempreverdi 


To do or not to do 

come aver cura 
del proprio personal 


v 13 ^ 

I package 
applicativi: 

merceologia del software 
^ prèt a porter A 


" 28 ” 

I famosi Softest 

prove rivisitate 
dei package più popolari 


19 

Dimensione 

MSX 


Strutturare 
il software 

(con elementi 
di linguaggio Pascali 


r 14 J 

Scrivere un gioco 
di avventura 
sul personal 
^ computer A 


r 29 1 

Suono e Musica 
col Personal Computer 


20 

Dacci oggi i nostri 
dati: in BASIC 
e Pascal voi I 


Dizionarietto 

informatichese 


15 

Pronto, VisiCalc 

e gli onesti 
spreadsheet 


Stendere 
un programma 
come si deve: 

algoritmi e cose serie 


30 

Calcolo numerico 
in BASIC 


Dacci oggi ì nostri 
dati: in BASIC 
e Pascal voi. n 


DIVISIONE GRANDI OPERE 



Scoprì 0 tuo 


computer 


A. Borra , M.C. G rizzi 

LAVORIAMO CON 
IL COMMODORE 16 

Lavorare con il C16 è un 
piacere, fallo anche tu, 
ti divertirai. 

Cod. CC244 Pag. 196 L. 20.000 
Con cassetta 


G. Marano 

30 PROGRAMMI 
PER MSX 

Inserite soltanto la cassetta 
e... una valanga 
di programmi uscirà 
dal vostro MSX. 

Cod. CZ181 Pag. 96 L. 20.000 
Con cassetta 

A. Cattaneo , P. Todorov ich 

COMPUTER HARDWARE 

Il primo vero libro di 
realizzazioni pratiche 
dedicate ai più diffusi home 
computer: C64, Spectrum, 
VIC20, C16 e MSX. 

Cod. CH182 Pag. 152 L. 13.000 


VOGLIATE SPEDIRMI 


n° copie 
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Prezzo totale 
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fisso spese di spedizione. 

Condizioni di pagamento con esenzione dei contributo spese di spedizione: 

□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n. 11666203 a voi intestato 


I 


m 


□ Allego fotocopia di versamento 
su vaglia postale a voi intestato 


Nome 


Cognome 


Via 


Cap. 


Città 


Prov. 


Data 


Firma 


Spazio riservato alle Aziende. Si richiede l’emissione di fattura 
Partita I.V.A. 


ORDINE 

MINIMO 

L 50.000 


A.P. Stephenson 

IL COMPUTER: 

PHobby e il lavoro 

Il computer come compagno 
ideale, nella propria 
professione e nelfhobby. 

Cod. CI 187 Pag. 192 L. 12.000 

R. Boneiii , L. Pazzucconi , 

F. Racchi 

GUIDA AL COMMODORE 
PLUS 4 

Un manuale completo per il 
Plus 4 ripercorrendo C16 per 
te e C16 sempre di più. 

Cod. CC256 Pag.470 L. 30.000 


Jackson 

la biblioteca 
che fa 
testo 


I 


■ 








Il gioco» semplice ed essenziale* 
prende spunto da uno presente 
nelle “vecchie” sale giochi, 
quando ancora non era scoppia- 
to il “boom” dei videogame: si 
trattava di un grosso cubo» tra- 
sparente in alto, al quale erano 
uniti un volante e due pedali: lo 
scopo era quello di pilotare den- 
tro il cubo una pallina di metallo 
lungo un piano inclinabile nelle 
quattro direzioni, in modo che 
riuscisse ad evitare le buche che 
si trovano lungo il percorso per 
cadere infine in quella finale. 
Due erano le grandi attrattive di 
quel banale gioco: primo il fatto 


che la pallina si trovava in un la- 
birinto a forma di strada, con 
tanto di automobili e pedoni. 
Sembrava proprio di essere 
“grandi” alla guida della pallina: 
“Papà, guido proprio come tef”. 
La seconda era che la pallina che 
riusciva ad arrivare alla fine ve- 
niva trasformata... in una gomma 
da masticare: era questo un pre- 
mio che dava una gioia assai 
maggiore della semplice patente 
di guida! 

I l tempo è passato, ma è rimasta però 
la memoria di quel vecchio gioco or* 
mai introvabile: ora il CI 6, insieme ai 


ricordi, è riuscito a far rivivere quei mo- 
menti, grazie a “Guida pericolosa”, il 
gioco che qui vi presentiamo. Peccato 
che non sia stato possibile trasformare 
la pallina vincente in un chewing-gum: 
che sia questo uno di quei famosi limiti 
fisici del computer di cui tanto si sente 
parlare oggigiorno? 

Il gioco 

Veniamo finalmente al gioco vero e pro- 
prio, come è stato realizzato sul CI 6: 
esso consiste nel guidare una pallina 
rossa (inizialmente posta in alto a sini- 
stra) lungo un percorso labirintico, in 
modo che raggiunga (in basso a destra) 
il buco blu, evitando però tutti quelli 
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neri che intralciano il percorso. La palli- 
na può essere guidata solo mediante 
l’inclinazione del suo piano di movimen- 
to: due indicatori permettono di deter- 
minare, istante per istante, la posizione 
del piano, in modo da avere il massimo 
controllo sulla pallina. 11 movimento è 
controllato da quattro tasti: 

“Z” per inclinare il piano verso sinistra 
“X” per inclinare il piano verso destra 
“/” per abbassare la parte superiore 
del piano (e quindi alzare quella inferio- 
re) 

per il movimento inverso. 
Naturalmente, non si vedrà realmente 
inclinarsi il piano di movimento della 
pallina, ma essa incomincerà a muover- 
si nella direzione data dalle frecce degli 
indicatori, con velocità proporzionale 
aH’inclinazione indicata. Il gioco tiene 
conto anche dell’azione dell’attrito: se 
gli indicatori mostrano una duplice incli- 
nazione, esempio in basso e a destra, 
la pallina non andrà né verso il basso 
né verso destra, e ciò perché Tattrito 
contro le pareti del labirinto ne impedi- 
sce ogni movimento: solo uno dei due 
indicatori deve essere lontano dalla po- 
sizione di equilibrio; questo rende il gio- 
co più difficile e appassionante: il con- 
trollo della pallina è veramente proble- 
matico. Una particolarità: per facilitare 
il rallentamento della pallina, che in cer- 
ti casi (ve ne accorgerete!) deve essere 
immediato, la pressione del tasto oppo- 


sto a quello di inclinazione (esempio la 
pressione di “X” quando l’indicatore 
orizzontale è a sinistra) permette l’im- 
mediato ottenimento dell’equilibrio, 
quindi attenti a non farvi prendere dal 
panico! 

Il cadere dentro uno dei buchi avrà l’ef- 
fetto di dover ricominciare il gioco dal- 
l’inizio, ed è dura ripartire daccapo 
quando si era a un passo dalla meta! 
Al termine viene segnalato il tempo im- 
piegato per effettuare il percorso e vie- 
ne offerta la possibilità di giocare nuo- 
vamente: come si fa a rifiutare? E poi, 
quando avrete acquisito un po’ di espe- 
rienza lanciate la grande sfida: “Papà, 
vieni che ti faccio vedere come si gui- 
da!!!” 

Le caratteristiche del 
programma 

Finora abbiamo parlato solo del gioco 
in sé, ma quello che conta è il modo con 
cui è stato realizzato e la descrizione 
delle scelte adottate, in modo da capire 
il funzionamento del programma per un 
suo eventuale miglioramento. Si osser- 
va innanzitutto (linee 460-470) che il 
programma sfrutta gli attributi, cioè non 
disegna di volta in volta la pallina nella 
mappa di schermo, ma (dopo aver riem- 
pito di palline lo schermo: linea 160, il 
codice della pallina è 81) cambia solo il 
colore della casella (in mappa colori) 
nella quale si trova: tutte le altre palline 


hanno il colore dello sfondo e quindi non 
sono visibili. In questo modo si sono ri- 
sparmiate molte istruzioni: per posizio- 
nare la pallina è sufficiente cambiarne 
il colore invece di scriverla sullo scher- 
mo e poi colorarla. 

Le variabili AX e AY tengono conto 
delle inclinazioni del piano, e il loro valo- 
re determina anche la velocità della pal- 
lina (linee 560-580). In caso di vittoria 
viene suonato un breve motivetto (linee 
800-810, “DATA” in 1090). Il labirinto, 
infine è codificato nelle linee “DATA” 
860-1060: gli “zero” indicano zona vuo- 
ta, mentre gli “uno” indicano la presen- 
za di un muro. Quindi è facile modifica- 
re la forma del labirinto con un’altra, 
ricordando che la sua dimensione è 21 
righe per 37 colonne. In questo caso 
bisogna però modificare anche le palli- 
ne nere (i “buchi”), la cui posizione è 
determinata dalle linee “DATA” 1070- 
1080: i numeri si riferiscono alla posi- 
zione nella mappa colore: quindi 0 è la 
prima posizione in alto a sinistra, 40 
indica la prima casella a sinistra della 
seconda riga e così via. Per aumentare 
il numero dei buchi, e quindi della diffi- 
coltà, bisogna agire sulla linea 390, au- 
mentando il valore finale del ciclo 
FOR... NEXT ed aggiungendo altri va- 
lori alle istruzioni “DATA” delle linee 
1070-1080. 


i 


Guida pericolosa per C16-Plus/4 


31 0 

N=4 1 

: rem 

1 32 

* 



320 

FORK=1 T037 

: rem 

66 




330 

IFMID$ (A$,K,1 ) ="0"THEN350 

: rem 

37 

1 00 

REM* * GU IDA PERICOLOSA** :rem 

1 20 

340 

POKEB+N , C : POKEA+N, W 

: rem 

1 50 

1 1 0 

G=3072:H=2048:A=G:B=H: HX=H+939 :HY 

= H+5 

350 

N=N+1 

: rem 

205 


1 9 : W=1 60 :C=3+1 6*6 : VOL8 :rem 

in 

360 

NEXT 

: rem 

21 6 

1 20 

X=1 :Y=1 :NX=1 :NY=1 :S=54272 :rem 

1 97 

370 

A=A+40 : B=B+40 

: rem 

1 1 4 

1 30 

PRINT" {CLR} " :COLOR4 , 4 , 6 : COLORO , 2 


380 

NEXT 

: rem 

21 8 


: rem 

238 

390 

FOR J = 1 T02 8 

: rem 

72 

1 40 

FORJ=l T037 :rem 

65 

400 

RE ADN 

: rem 

254 

1 50 

GJ=G+J :HJ=H+J :FORK=l T021 : rem 

198 

41 0 

POKEH+N, 0 

: rem 

225 

1 60 

POKEHJ+40*K, 1 1 3 : POKEGJ+40*K, 81 


420 

NEXT 

: rem 

21 3 


: rem 

1 76 

430 

POKEH+877, 6+1 6*4 :POKEG+877, 

81 


1 70 

NEXT : rem 

21 5 



: rem 

71 

1 80 

POKEHJ ,C : POKEGJ ,W: POKEHJ+880 ,C : POKEGJ 

440 

POKEH+41 ,2+1 6*4 

: rem 

237 


+880, W :rem 

1 95 

450 

TI$ ="000000" 

: rem 

251 

1 90 

POKEHJ+92 0 , 1 1 3 :POKEGJ+920, 30:POKEGJ+9 

460 

I F AX< > 0 THE NPO KEHX+ AX ,11 3 

; rem 

239 


60 , W: POKEHJ+960 ,C : rem 

1 72 

470 

IFAYOOTHENPOKEHY+AY*40, 1 1 3 

: rem 

129 

200 

NEXT : rem 

209 

480 

GETA$ : I F A$ = " X" ANDAX< 0ORA$ = " 

Z"ANDAX>0T 

21 0 

FORK=0TO960STEP4 0 :rem 

20 


HENAX=0 

: rem 

1 76 

220 

POKEH+K,C: POKEG+K,W: POKEH+K+3 8 ,C : 

POKE 

490 

IFA$="X"ANDAX< 1 0THENAX=AX+1 

:rem 

109 


G+K+3 8 , W: POKEH+K+3 9 , 1 1 3 :POKEG+K+3 9, 31 

500 

IFA$ = " Z " ANDAX> - 1 0THENAX=AX- 

1 :rem 

1 52 


: rem 

208 

51 0 

IFA$ = "/"ANDAY< 0ORA$ = " ; " ANDAY> 0 THENAY= 

230 

NEXT :rem 

21 2 


0 

: rem 

230 

240 

FORJ = 9 2 0 T09 2 8 : POKEH+ J , C : POKEG+J , W 

: NEX 

520 

IFA$ = "/"ANDAY< 1 0THENAY=AY+1 

: rem 

65 


T : rem 

1 55 

530 

IFA$ =" ; "ANDAY>- 1 OTHENAY=AY- 

1 : rem 

1 27 

250 

FOR J = 9 5 0 T09 5 9 : POKEH+ J , C : PO KEG+ J , W 

: NEX 

540 

IFAX< >0THENPOKEHX+AX , 4 + 1 6*4 

: rem 

125 


T : rem 

1 63 

550 

IFAYOOTHENPOKEHY+AY*40, 4 + 1 6*4 


260 

POKEH+3 9 , C : POKEG+3 9 , W: POKEH+7 9 ,C : 

POKE 



: rem 

1 5 


G+7 9 , W: POKEH+9 9 9 , C : POKEG+999 , W 


560 

VX=VX+AX* 2 : VY=VY+AY*2 

: rem 

74 


: rem 

103 

570 

IFABS ( VX) >1 0THENNX=X+1 *SGN(VX) :VX= 

0 

270 

POKEHY , 4+1 6*6 :POKEG+939, 42 :rem 

205 



: rem 

203 

280 

POKEHX , 4+1 6*6 : POKEG+51 9,42 :rem 

1 99 

580 

IFABS (VY) >1 0THENNY=Y+1 *SGN(VY) :VY= 

0 

290 

FORJ=0TO20 :rem 

62 



:rem 

209 

300 

READA$ :rem 

20 

590 

CX=PEEK (H+NX+Y*40) AND 7 

: rem 

33 
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600 
61 0 
620 
630 
640 
650 


CY=PEEK (H+X+NYMO) AND 7 
CZ=PEEK (H+NX+NY*40) AND7 
IFCX=0ORCY=0ORCZ=0THEN700 
IFCX=3THENVX=0 :NX=X 
IFCY= 3THENVY=0 : NY=Y 


: rem 
: rem 
: rem 
: rem 
: rem 


26 

106 

74 

242 

247 


IFCZ=3THENVX=0: VY=0 :NX=X:NY=Y 


660 

670 


IFCX=6ORCY=6THEN780 


rem 

rem 


195 

183 


POKEH+X+40*Y, 1 1 3 :POKEH+NX+40*NY, 2+1 6* 



4 

: rem 

1 54 

680 

X=NX: Y=NY 

: rem 

80 

690 

GOTO 4 60 

: rem 

1 1 4 

700 

POKEH+X+4 0*Y, 1 1 3 

: rem 

1 00 

71 0 

IFAX< >OTHENPOKEHX+AX ,113 

:rem 

237 

720 

IFAYOOTHENPOKEHY+AY*40, 113 :rem 

1 27 

730 

FORT=700TO300STEP-20 

: rem 

1 70 

740 

SOUND 3 , T, 2 

: rem 

53 

750 

NEXT 

: rem 

21 9 

760 

AX=0 :AY=0 :VX=0 :VY=0 :X=1 :Y= 

1 :NX=1 : 

NY= 1 



: rem 

45 

770 

GOTO440 

: rem 

1 1 1 

780 

T=VAL (MID$ ( TI$ , 3 , 2) ) 

: rem 

49 

790 

PRINT" {HOME} HAI VINTO!! IN 

"T" MIN"; 



: rem 

1 1 8 

800 

FORT= 1 T06 : RE ADS , J : SOUND 1 , S 

, J : r em 

34 

81 0 

FORM= 1 T02 80 : NEXT: NEXT 

: rem 

1 06 

820 

PRINT" {GIU' } GIOCHI ANCORA 

(S/N) ?" 




: rem 

67 

830 

GETKEYA$ 

: rem 

201 

840 

IFA$ <> "S "THENPRINT" {CLR}CI AO ! " : END 



: rem 

1 30 

850 

RUN 

: rem 

1 46 

860 

DATAOO 0000 00 00 0000000001 0001 01 0000000 


1 000 

: rem 

1 72 

870 

DATAI 1 1 1 11 01 111 1 1 1 111 m 01 01 01 Oli 1 1 1 1 


1 01 0 

: rem 

1 99 

880 

DATAOO 0001 000001 0000000001 01 01 000001 0 


001 0 

: rem 

1 77 

890 

DATA01 11 01 01 11 01 Olii 1 11 1 11 01 01 1 1 01 1 1 0 


ino 

: rem 

198 


900 DATA0001 000001 000001 0001 0001 00000001 0 

1000 :rem 170 

91 0 DATAI 1 Olii 01 01 01 1 1 1 1 01 01 01 01 OHI 1 111 0 

1111 : rem 1 91 

920 DATA01 0001010101000101010101 00 0100000 

0000 : rem 176 

930 DATA01 11 01 01 01 01 01 01 01 01 Oli 1 1 1 01 1 1 01 1 

: rem 1 91 

940 DATA01 0001 01011101 0001010100010000010 

0000 :rem179 

950 DATA0001 1 1 01 01 01 01 1 1 1 1 01 01 01 01 01 01 1 1 0 

1111 : rem 1 91 

960 DATA01 0001 01 01 00000001 000001 010101000 

0000 :rem 178 

970 DATA01 1101110111010101110111000101010 

1011 : rem 193 

980 DATA01 0000000100010100010101111101010 

1 000 ; rem 1 85 

990 DATA01 01 1 1 1 1 11 Olii 01 01 111 1 00000001 01 0 

1110 :reml94 

1 000 DATA01 01 00000001 0001 01 0001 0111111101 
11000 :rem 219 

1010 DATA0001 11111111011101010101000001 01 
01011 : rem 225 

1 02 0 DATA01 01 00000001 000001 01 01 01 01 01 0001 
00000 :rem 215 

1 03 0 DATA01 01011111010111110101 01 01011101 

01110 : rem 230 

1 04 0 DATA0001 01 00000001 0001 01 01 01 01,01 0001- 

01000 :rem 218 

1 050 DATA01 01 0111111111010111011101010111 

01111 :rem235 
1 060 DATA01 01 000000000001 0000000001 0001 00 

00000 : rem 214 

1 070 DATA59, 65, 73, 1 51, 157, 215, 2 31, 281, 303 
, 31 5,331 , 393,447, 451,477 : rem 202 

1080 DATA541 , 543 , 593 , 61 5 , 673 , 70 9 , 72 3 , 76 7 , 
779,783,796,841,871 :rem 18 

1 090 DATA6 85, 20, 6 85, 20, 704, 20, 73 9, 3 5, 685, 
20,770,60 : rem 227 



LA BIBLIOTECA CHE FA TESTO 




di C. Book 

trad. e adatt. 

di F. Sarcina 




Fochi uomini sono riusciti a so- 
pravvivere ai pericoli del Castel- 
lo di Dunsmore» dimora di molte- 
plici dragoni. Un gioco di strate- 
gia per C16 e Plus/4. 


T rovare la strada per uscire dai tor- 
tuosi sotterranei del Castello di 
Dunsmore è difficile. Hai poco cibo e 
poca acqua a disposizione per sopravvi- 
vere, e se non sei più che lesto di gam- 
be, rischi un'orribile fine nelle fauci di 
un dragone. 

Come si gioca 

LA TANA DEL DRAGONE è un gioco 
scritto interamente in BASIC. Dopo 
aver digitato il programma salvane una 
copia. Dopo il RUN appare un messag- 
gio di attesa: il computer sta ora dise- 
gnando il labirinto dei sotterranei del 
castello.Ti troverai quindi in una stanza 
di questi sotterranei. Lo schermo pre- 
senta una visione tridimensionale pro- 
spettica della stanza e un indicatore di- 
rezionale verso il Nord. A questo punto 
hai diversi comandi da scegliere indicati 
nella parte bassa dello schermo: per se- 
lezionare uno di essi premi la prima 
lettera della parola (per sinistra, ad 
esempio). In ogni stanza sono sempre 
disponibili almeno quattro delle seguen- 
ti opzioni: 

CARTA: permette di vedere la tua at- 
tuale posizione nei sotterranei del ca- 
stello e i posti in cui sei già stato. Indica 
con una M anche i luoghi dove hai la- 
sciato del pane. 

PANE: deposita un pezzo di pane nella 
stanza. Appare un messaggio che indica 
i pezzi di pane utilizzati (all’inizio se ne 
hanno a disposizione 20). Serve per ri- 
cordarsi posti particolari che si pensa 
possano servire in futuro. Tuttavia, se 
utilizzi tutti i 20 pezzetti di pane, muori 
di fame. 


IND. (indietro): per spostarsi nella ca- 
mera immediatamente indietro a quella 
in cui si è al momento. 

SIN. (sinistra): per girare a sinistra (ov- 
viamente solo se verso sinistra vi è un 
altro corridoio). 

AV. (avanti): per proseguire dritto. 

DESTRA: per girare a destra. 

BOTOLA: solleva il coperchio della bo- 
tola presente nella stanza. Sotto potre- 


sti trovare una spada magica, oppure 
deil’oro, o dell’acqua. O anche un orri- 
bile e affamato dragone. 

Consigli di gioco 

Lo scopo di LA TANA DEL DRAGO- 
NE è riuscire a fuggire dal castello, ma- 
gari dopo aver racimolato un buon bot- 
tino in oro. Bisogna quindi trovare 
un’uscita. Controlla regolarmente la po- 
sizione con l’opzione Carta: l’uscita è 
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lungo le mura esterne. Sembra facile, 
ma trovarla richiede senz’altro un certo 
tempo, e con il tempo finisce anche l’ac- 
qua a tua disposizione; allora dovrai co- 
munque aprire delle botole, dove potrai 
trovare dell’acqua. 


Nelle botole puoi anche trovare pepite 
d’oro, o una spada che ti serve per ucci- 
dere un dragone, ma che funziona per 
una volta sola. Se dovessi incontrare un 
dragone non avendo la spada a disposi- 
zione, dovrai fuggire velocemente, per 


evitare di fare una cruenta e orribile 
fine nelle fauci del dragone. 

Se incontri un’uscita, ma ritieni di non 
aver accumulato abbastanza oro puoi 
anche decidere di rimanere ancora nel 
labirinto. 


La tana del dragone 


100 

1 1 0 
1 20 
1 30 
1 40 
1 50 
1 60 
170 


1 80 
190 
200 
21 0 


220 


230 

240 


Y=826 :COLOR4 , 1 : COLORO,! : PRINT" {CLR} 

{ 5 GIU ' } [ < 5> ] { 10 SPAZI }LA TANA DEL 


DRAGONE" 


rem 1 04 


PRINT" { 10 GIU'} ATTENDERE, STO COSTR 
UENDO IL LABIRINTO {RED}" :rem 38 

BO$=" { 39 SPAZI }" :X$=" {HOME} 

{ 23 GIU'}" :rem 154 

F=831 :G=832:H=829:C=3:DIMM$ (10,11) :FO 
RI = 1 T09 : FORJ = 1 TOl 0 : rem 179 

M$ (I , J) =STR$ (INT( ( 7*RND ( 1 ) ) +1 ) ) +STR$ ( 
INT ( ( 8 *RND ( 1 ) ) +1 ) ) : NEXTJ , I :rem 243 

S = I + 1 0 : I = INT ( ( 8*RND ( 1 ) )+1) :J = INT( (9*R 
ND ( 1 ) ) +1 ) : GOTO 520 :rem 233 

PRINTX$" {DES } [ <4> ] ";B$:B$="": IFY$="P" 
THENPRINTTAB (18)" {SU } " SL :rem 50 

PRINT" [<8>] { 2 SU} {RVS }C {OFF }ARTA 
{RVS } P {OFF } ANE {RVS } I {OFF }ND . " ; SS$ " 
{RED}" :IFHS=1THEN1320 : rem 214 

IFWT>1 00ORS<1 THEN1 1 80 :rem 252 

GETY $ : I F Y$ = " " THEN 190 :rem 135 

IFDE=1 ANDY$<>"I"THENi 90 :rem 56 

GOSUB1 580 :DE=0: PRINT" {SU}"SB$ ,SB$" 
{SU}" :GOSUBl 560 : IFY$ = "C"THEN1 420 

:rem 166 

IFY$=" P"THENGOSUBl 530:GOSUB930:SL=SL+ 
1 :S=S-1 : B$="PEZZI DI PANE" :GOTOl 60 

: rem 57 

IFTC=1 THENTC=0 :rem 92 

WT=WT+ 1 : I F Y $ = " S " AND LD = 10 RY $ = " D " ANDRD = 
1 ORY $ = " A" AND FD = 1 ORY $ = " I " THEN2 8 0 


480 

IFY$ = "D"THENJ=J- 1 

: LT=1 

:C = 1 

: rem 

254 

490 

IFY$="A" THENI=I+1 

: TB= 1 

: C = 4 

: rem 

241 

500 

I F Y$ = " I " THEN 1 = 1-1 

:C = 3 


: rem 

1 80 

51 0 

SS$=" " :GOTO790 



: rem 

244 


520 PRINT" {CLR} " : FORI J = 1 TO20 : PRINT" 

[< 15 +>] "SPC (1 0) " [< 14 +> ] " : NEXTI J 

: rem 2 27 

530 PRINT" {HOME}" :F0RII=1T04: PRINTTAB (1 5) 
"{RVS} [ <R> ] [ <E> ] [<R>] [ <E> ] [<R> } [<E>] 
[<R>] [<E>] [<R>] [<E>J {GIU' } { 10 SIN} 

[ <E> ] [ <R> ] [ <E> ] [ <R> ] [ <E> ] [ <R> ] ( <E> ] 

[ <R> ] [ <E> ] [<R>] ": NEXTI I : rem 59 

540 PZ = 1 2: ZP=1 5 : FORI J= 1 TO 1 2: ZP=ZP-1 :FORJI 
= 1 TO P Z : rem 42 

550 PRINTTAB (ZP) " NEXTJI : PZ=PZ+2 : PRINT 
: NEXTIJ: PRINT" {HOME} { 8 GIU'}" 

:rem 37 

560 JJ=8:FORII=1 4T03STEP-1 :JJ=JJ+2 

:rem 101 

570 PRINTTAB (II) ”£"SPC(JJ) " [<*>] " : NEXTI I 

:rem 201 

580 PRINTLEFT$ (X$,1 9)TAB (1 6) "{ 4 SPAZI}": 
PRINTTAB (1 7) " { 4 SPAZI }": PRINTLEFT$ (X 
$,19); : rem 254 

590 IFC=3THENPRINTTAB (1 7) " [<8>] N{RED }" : PR 
INTTAB (1 7) "t" : rem 110 

600 IFC=4THENPRINTTAB (1 7) "V" : PRINTTAB (1 7) 
" [<8>]N{RED}" : rem 95 

61 0 IFC=1 THENPRINTTAB (1 6) " [<8>]C> {RED }N" 

:rem 108 

620 IFC=2THENPRINTTAB (1 6) "N [ < 8> ] <C { RED } " 

:rem 108 




: rem 

1 34 

250 

IFY$="B"THENPRINT" {HOME} { 13 

GIU' 

}"SP 


C ( 2 0 ) " {SU}" 

: rem 

1 96 

260 

I FY$ = " B" ANDTD = 1 THEN 960 

: rem 

14 

270 

GOTO! 60 

: rem 

1 05 

280 

SAF=I : FAS= J : TD = 0 : LD = 0 : RD = 0 : FD = 0 : 1 FY$ = 


" I " THENTC = 1 

: rem 

1 89 

290 

I FTB= 1 THEN 470 

: rem 

248 

300 

I FLT= 1 THEN 370 

: rem 

249 

310 

IFRT=1 THEN420 

: rem 

252 

320 

TB=0:LT=0:RT=0: IFY$="S"THENJ 

=J-1 : 

LT=1 


:C = 1 

: rem 

215 

330 

IFY$="D"THENJ=J+1 :RT=1 :C=2 

: rem 

253 

340 

IFY$="A"THENI=I-1 :C=3 

: rem 

174 

350 

I F Y$ = " I " THEN 1 = 1 + 1 : TB=1 :C = 4 

: rem 

244 

360 

GOTO 51 0 

: rem 

104 

370 

TB=0 : LT=0 : RT=0 : IFY$="S"THENI 

= 1 + 1 : 

TB=1 


:C = 4 

: rem 

209 

380 

IFY$="D" THENI=I- 1 :C=3 

: rem 

1 81 

390 

I FY $ = " A" THEN J = J - 1 :LT=1 :C = 1 

: rem 

251 

400 

IFY$=" I "THENJ=J+1 :RT=1 :C=2 

: rem 

0 

41 0 

GOTO 51 0 

: rem 

100 

420 

TB=0:LT=0:RT=0: IFY$="S"THENI 

= 1-1 : 

03 



: rem 

144 

430 

IFY$="D"THENI =1+1 :TB=1 :C=4 

: rem 

238 

440 

IFY$="A"THENJ=J+1 :RT=1 :C=2 

: rem 

252 

450 

IFY$="I "THENJ=J- 1 : LT=1 :C = 1 

: rem 

0 

460 

GOTO 510 

: rem 

1 05 

470 

TB=0:LT=0:RT=0: IFY$="S"THENJ 

=J+1 : 

RT = ! 


:C=2 

: rem 

226 


630 IFI >90RJ > 1 0ORI < 1 ORJ< 1 THENSAF = I : FAS=vJ : 

GOTO760 : rem 91 

640 MM=VAL (LEFT$ (M$ (I ,J) ,2) ) :ONMMGOTO650, 



660,670,680,690,700,710 

,760 :rem 

223 

650 

GOSUB850 

: rem 

1 84 

660 

GOSUB770 

: rem 

1 86 

670 

GOSUB880 :GOTO720 

: rem 

201 

680 

GOSUB850 

: rem 

1 87 

690 

GOSUB770 : GOTO 7 20 

: rem 

201 

700 

GOSUB880 

: rem 

1 83 

710 

GOSUB850 

: rem 

i 81 

720 

IFRIGHTS (M$ (I ,J) ,2) ="22 

"THENGOSUB930 



: rem 

42 

730 

IFMM>4THENGOSUB940 

: rem 

1 29 

740 

IFVAL (MID$ (M$ (I , J) , 4, 1 ) ) <6THENGOSUBl 2 


60 

: rem 

213 

750 

GOTOI 60 

: rem 

108 

760 

GOSUB1 580 : PRINTX$SPC (6) 

;" {SU} {RVS}STR 


ADA CIECA{OFF } TORNA {RVS } I {OFF}NDIET 


RO ! " : DE= 1 rGOTO 1 80 

: rem 

71 

770 

PRINTLEFT$ (X$,10) : FORGI 

=1T04: PRINTTAB 


( 1 8 ) " { 2 SU}{ 4 SPAZI}" 

: NEXT : rem 

1 

780 

PRINTTAB (1 8) " { 2 SU}£{ 

2 SPAZI } [<* 

>]" 


: FD=1 : PQ=1 9:SS$=SS$+" {RVS}A{OFF}V 

■ « * 


GOTO 920 

: rem 

80 

790 

PRINT" {HOME}" : FORI 1 = 1 TO 4 : PRINTTAB (1 5) 


"{RVS} [ <R> ] [ <E> ] [ <R> ] [ <E> ] [ <R> ] [<E>] 

[ < R > ] I < E > ] [<R>] [<E>] {GIU'}{ 10 SIN} 
[<E>] [ <R> } { <E> } [ <R> ] [ <E> ] [ <R> ] [ <E> ] 
[<R>] [<E>] [<R>] NEXTI I : rem 67 
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800 PRINT" {HOME} { 8 G IU ' } " : FORI I = 1 T08 : PRI 
NTTAB ( 1 5) " { 10 SPAZI }"tNEXTII 

:rem 164 

810 PRINT" {HOME} { 4 GIU ' } " : FORG I = 1 T09 : PRI 
NTTAB (6 ) " [ < 4 +>] " : NEXT: LD=0 : PRI NTTAB 
(6) " [< 3 +>] £" : rem 1 1 3 

820 PRINTTAB ( 6 ) "[< 2 +>]£": PRI NTTAB ( 6 ) " 

[<+>]£": PRINTTAB (6) "£" :rem 136 

830 PRINT" {HOME} { 4 GIU ’T" t FORGI = 1 T09 : PRI 
NTTAB (30) " [ < 4 +>]": NEXT: RD=0 : PRI NTTA 
' B ( 3 0 ) " [<*>] [< 3 +>] " : rem 9 

840 PRINTTAB (31 )"[<*>] [< 2 +>]": PRI NTTAB ( 
32) " [<*>] [<+>]": PRINTTAB (33) "[<*>]" :G 
OTO580 :rem 201 

850 PRINTLEFTS (X$,1 9) : FORGI = 1 TO 3 : PRINTTAB 

( 6 ) " { 2 SU}{ 4 SPAZI } " : NEXT :rem 213 

860 FORGI=1T08: PRINTTAB (6) " { 2 SU} 

[< 4 T> ] " : NEXT : LD= 1 :rem 38 

870 SS$=SS$+" {RVS } S {OFF } IN." :QP=6:PQ=7:G 
OT091 0 : rem ' 69 

880 PRI NTLEFTS (X$ , i 9) : FORGI = ITO 3: PRINTTAB 
(30) " { 2 SU}{ 4 SPAZI }" :NEXT:RD = 1 

:rem 67 

890 FORGI = 1 T08 : PRINTTAB ( 30 ) " { 2 SU} 

[< 4 T>] " tNEXT: LD = 1 y :rem 86 

900 SSS=SS$+" {RVS }D {OFF }ESTRA" : QP = 30 : PQ = 
31 :rem 55 

910 PRINTTAB (QP) " { 2 SU}£[< 2 T>] [<*>]" 

:rem 36 

920 PRINTTAB (PQ) " { 2 SU }£[<*>]" t RETURN 

:rem 249 

930 PRI NTLEFTS ( X$ , 1 6 ) TAB ( 20 ) " [<8>]U*I 

{GIU 1 } { 3 SIN} [<Z>]M<X>] {RED}" : RETUR 

N :rem 231 

940 PRINTLEFTS (X$ , 1 3) TAB (1 7) "N [< 5 T>]M": 
PRINTTAB (1 6) "N{ 3 SPAZI }wj 3 SPAZlTM 
" . : rem- 128 



1120 B$=" {RVS }HAI TROVATO UN DRAGONE E US 
ATO LA SPADA" tSW=0 : rem 121 

1130 PRINTLEFTS (X$ , 1 4 ) TAB ( 1 8) "+ +" : GOT0 16 

0 treni 52 

1140 B$ = " { RVS }C ' E 1 DELL'ACQUA, GUADAGNI T 

EMPO" : WT=0 tGOTOI 60 : rem 149 

1150 B$=" {RVS}NON C ’E' NIENTE" : GOT0 1 60 

:rem 78 

1160 IFSW=1 THENB$=" {RVS }HAI TROVATO DELL' 
ORO! " :GL=GL+1 tGOTOI 60 : rem 244 

1170 B$="{RVS}HAI TROVATO UNA SPADA MAGIC 
A! " : SW=1 tGOTOI 60 : rem 4 7 

1180 IFS<1 THENPRINT" {CLR} { 4 GIU'}{<8>] 

{ 5 SPAZI }SPIACENTE - SEI MORTO DI F 

AME! " tGOTOI 200 treni 195 

1190 PRINT" {CLR}{ 4 GIU'}[<8>]{ 5 SPAZI} 
SPIACENTE - SEI MORTO DI SETE ! GOTO 

1 200 treni 9 4 

1 200 FORI J = 1 TOT 00 : NEXT: POKE59467 ,0 

treni 44 


950 PRINTTAB (1 6) " {< 9 U>] " : TD=1 : SS$=SS$+" 



{RVS }B{OFF }OTOLA" t RETURN 

: rem 

1 75 

960 

PRINT" {HOME} { 9 GIU ' }"TAB (1 6) " 



[< 9- 0>] " t PRINTTAB (16) "M { 7 

SPAZI }N" 



: rem 

1 65 

970 

PRINTTAB (1 7) "M{ 5 SPAZI }N" 

: rem 

1 56 

980 

SS=LEN (SS$ ) t SS$=LEFT$ (SS$ ,SS 

-6) 




: rem 

94 

990 

FE=FE+1 

: rem 

81 

1000 

ONINT ( ( 9*RND ( 1 ) ) +1 ) GOTO! 1 50 

, 1 01 0, 

1 01 


o 

U1 

o 

o 

(jj 

o 

*■* 

o 

o 

— * 

o 

o 

o 

1 1 60,1030 



: rem 

1 29 

101 0 

B$=" {RVS } SENTI IL RUMORE DELLE SQUAM 


E ! " t HS = 1 t PRINTLEFTS (X$ ,1 4) TAB (1 8) 

it * 


* » 

: rem 

224 

1 020 

GOTO! 60 

: rem 

1 47 

1030 

IFFE<20THENl 01 0 

: rem 

1 09 


1040 Y$="" : PRINTXS" {SU} { 3 SPAZI } [<8>] TRO 
VI UN'USCITA! { RVS } S {OFF }CAPPI O 
{RVS }R {OFF } IMAN I ? " : FE= 5 trem 75 

1050 GETY$: IFY$=""THEN1 050 trem 223 

1 060 I F Y$ = " R" THENPR I NT" {SU } "SB$ tGOTOI 60 

trem 250 

1070 IFY$< >"S"THEN1 040 trem 217 

1080 PRINT" {CLR}{ 7 GIU'}[<8>]{ 4 SPAZI} 
HAI TROVATO UN’USCITA, E FUGGI! "tIFG 
L=0THEN1 200 trem 146 

1090 PRINT" {GIU' } { 10 SPAZI }CON" ;GL; " PEPI 
TE D'ORO! " tGOTOI 200 trem 82 

1100 IFSW=0THENGOSUBl 400 trem 220 

1110 IFSW=0THENPRINT" {CLR} { 6 GIU'}[<8>] 

{ 4 SPAZI }SEI STATO MANGIATO DA UN D 

RAGONE" tGOTOI 200 trem 23 


1210 PRINT" { 4 GIU ' } { 10 SPAZI }VUOI RIPRO 
VARE (S/N) "t AG$="" trem 94 

1 220 GETAGS t IFAG$ = " "THENl 220 trem 59 

1230 IFLEFTS (AGS , 1 ) ="S"THENRUN trem 246 
1 240 IFLEFTS (AG$ , 1 ) < >"N" THENl 220 t rem 255 
1250 END . trem 159 

1 260 ONVAL (MID$ (M$ (I , J) ,4 , 1 ) ) GOSUB1 270,1 2 
80, 1 290, 1 300, 1 31 OtRETURN trem 9 1 
1270 BS=" {RVS }L' ODORE DI FUMO E’ FORTE" tR 
ETURN trem 121 

1 280 B$ = " {RVS }FULIGGINE SULLE PARETI " t RET 
URN trem 194 

1290 B$=" {RVS }SI SENTE DELL'ACQUA CHE GOC 
CIOLA! " : RETURN trem 223 

1300 B$=" {RVS } SANGUE SUL PAVIMENTO" t RETUR 
N t rem 6 5 

1310 B$=" {RVS }RIMBOMBA UNO SBATTERE D'ALI 
"t RETURN trem 174 

1320 VB=55 :Y$="" :HS=0: TD=0 trem 190 

1330 GETYSt VB=VB-1 t IFVB<45THENl 380 

trem 42 

1340 FORI J= 1 T07 : NEXT trem 3 

1 350 I FY $ = " S" AND LD = 1 ORY $ = " D " ANDRD = 1 ORY $ = " 
A"ANDFD=lORY$="I"THENl 370 trem 193 

1360 GOTO1330 trem 202 

1370 GOTO210 trem 151 

1380 IFSW>OTHENl 1 20 trem 102 

1390 IFSW<=0THEN1 1 00 trem 160 

1 400 PRINTLEFT$ (X$ ,1 2) TAB (1 9) " X*X " t PRINTT 
AB ( 1 8 ) " ( * *) "t PRINTTAB (1 8) " JQK " 

trem 134 

1410 PRINTTAB (17) "<<<><>>>" t FORI J = 1 T03000 
tNEXTt RETURN trem 42 


62 • SUPERC16® 1/86 


1 420 
1430 
1 440 

1 450 

1 460 

1 470 
1 480 

1 490 

1 495 

1 500 
1 51 0 

1 520 

1 530 

1 540 


SS$ = " M : PRI'NT" {CLR } { PUR } 11 TAB ( 1 4) 


vv 


[< 10 @>] 


II 


11 


: rem 133 
{OFF} [ <M> ] " ; 


rem 1 89 


FOR I J = 1 TO 9 : PR I NTTAB ( 1 3) 

: FORJ I =1 TOl 0 
MM$=RIGHT$ (M$ ( I J , JI ) ,2) : IFIJ=IANDJI= 
JTHENPRINT" {OFF} t"; :GOT01 480 

: rem 99 
iGOTO 1 48 
rem 208 
: GOTO 1 4 8 
rem 


I FMM$ = " - 2 " THENPRI NT" {OFF}L" 
0 

IFMM$=" 22" THENPRINT" {RVS}M" 
0 

PRINT" {RVS } 


11 


rem 


21 5 
234 


:rem 255 
SPAZI } { WHT } PREMI 
: rem 132 
SOTTERRANEI 


NEXTJI : PRINT" {OFF} [<G>] " : NEXTI J : PRIN 
TTAB (14) " [ < 10 T>] {RED } " 

PRINT" { 3 GIU 1 } { 7 
UN TASTO PER TORNARE" 

PRINTTAB (12) " {GIU 1 }NEI 
{RED}” : rem 136 

GETY$ : IFY$=" "THENl 500 : rem 223 

IFRIGHT$ (M$ (I ,J) ,2) ="- 2"ORRIGHT$ (M$ ( 
I ,J) ,2) ="22"THEN520 :rem 38 

M$ (I , J) =M$ (I , J) +"-2" : GOTO 520 

: rem 223 

IFRIGHT$ (M$ (I ,J) ,2) ="-2"THENM$ (I ,J) = 
( I , J ) +" 2" : RETURN :rem 51 

IFRIGHT? (M$ (I , J) ,2) =" 22"THENRETURN 

:rem 31 


1 550 M$ ( I , J) =M$ ( I , J) +" 22" : RETURN: rem 247 
1560 IFRIGHTS (M$ (I,J) , 2) ="-2"ORRIGHT$ (M$ { 
I , J) , 2) =" 22"THENRETURN :rem 116 

1 570 M$ ( I , J ) =M$ (I , J ) +"- 2" : RETURN : rem 244 
1 580 PRINTLEFT$ (X$,23) ; BO$ : PRINTX$BO$ : RET 
URN :rem 10 
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La rivista di informatica nella didattica per la 
scuoia italiana. 

9 numeri all'anno: L. 3.000 a numero 
Abbonamento: solo L. 20.000 


11 numeri all'anno: L. 5,000 a numero 


rivista italiana dedicata ai 


mài*** 
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uv 

# 




o- 


Vendo, cambio programmi di tutti i ge 
neri per C 64. Ne possiedo circa 200 e 
sono tutti novità assolute. Invio la lista 
a chi mi invia la sua. Massima serietà; 
rispondo a tutti. Francesco Palmieri - 
Via Porta Roma, 4 - 81011 Aiife (CE) • 
Tel. 0823/918954 

Vendo C 64 in ottime condizioni e stato 
d’uso con cassetta giochi a L. 250.000 
trattabili, perché intendo acquistare il 
C 128. Mario Gianmarco - Via Cala 
mandrei, 5 * 48022 Lugo (RA) • Tel. 
0545/22965 

Vendo, cambio programmi per il C 128 
e C 64, sia su disco che su cassetta. 
Dispongo delle ultime novità. Per mag 
giori informazioni scrivere a: Massimo 
Tabasso * Piazza Molineris, 1 - 12038 
Savigliano (CN) 

Vendo per C 64 programma per prò 
gettazione e dimensionamento di im 
pianti idrici antincendio corredato da 
istruzioni e tabelle. Scrivere o telefona 
re a: Felice Venuti Via S. Marta, 316 
Pai. H • 98100 Messina * Tel. 
090/713906 

Vendo C 16 più registratore, 3 casse Ite 
e joystick a sole L. 230.00. Sì, avete 
letto bene, solo L. 230 000 Andrea Puc- 
ci - Via Lividoma, 63 - 58019 Porto 
S.Stefano (GR) Tel. 0564/813259 

Vendo C 16 più registratore, joystick, 
adattatore, manuale, 10 riviste, 20 gio- 
chi e due utility a sole L. 280.000. Beni 
to Pontiroli - Via C. Terranova, 57 * 
41100 Modena - Tel. 059/391639 

Per C 64 vendo cartuccia Fast load a L. 

35.000 (è utilissima). Inoltre vendo 
espansione memoria 8 16 Kbyte per 
VIC 20. Cambio o vendo tantissimo 
software per C 64. Telefonare dalle ore 
18 00 alle ore 21.00. Inviare liste e ri 
chieste a: Gianni Cottogni - Via Stram 
bino, 23 * 10010 Carrone (TO) - Tel. 
0125/712311 

Cambio i miei giochi su disco per C 64 
(oltre 1 000) con altri che non ho. A chi 
lo richiede invio lista gratuita per scam- 
bi. Franco Rigamonti Casella Postale, 
26 * 22061 Barzago (CO) - Tel. 
039 957091 

Vendo Plus, 4 nuovo, 3 mesi di vita, a L 

500.000 con programmi vari. Oppure 
cambio con C 64 nuovo. Luigi Bricchi - 
Via De Amicis. 4 - 21033 Cittiglio (VA) • 
Tel. 0332/602130 

Vendo C 64 nuovissimo, mai tirato fuo 
ri dagli imballi, a L. 300.000. Inoltre ven 
do C 64 usato a L. 250.000. In regalo 
vasto assortimento dei migliori video 
game in commercio. Diego Zanin - Via 
Di Vittorio, 25 10093 Collegno (TO) - 
Tel. 011 4150446 

VIC 20 software club ha tutti i program 
mi per dimostrarvi che potete usare il 
VIC 20 al pari degli altri più reclamizza 
ti. VIC 20 software club c/o Cinzia 
Ceccarini • Via Di Vittorio, 10 - 58022 
Follonica (GR) 



Vendo C 128 più manuale, disco origi 
naie CP/M plus 30 a L. 650.000. Regalo 
natalizio indesiderato. Garanzia un an- 
no. Rinaldo Vigiione - Via Ginestrato, 
3L/3scs * 16144 Genova - Tel. 

010/821284 

Vendo programmi per C 64 su cassetta 
(più di 300) da L. 500 a L. 1 .500. Richie- 
dere la lista a: Marco Romani - Via G. 
Valli. 95 00149 Roma Tel. 06/5265121 

Cambio e vendo programmi per C 64: 
Haker, Brunòs boxing. Lode runner, 
Who dares wins, Nexus, Strip Poker 2. 
Impossible mission, altri games e pa 
recchie utility sia su disco che su nastro 
(la maggior parte su disco), inviatemi la 
vostra lista, vi invierò la mia. Luca Ro- 
vatti Via B. Migliarina, 97 - 41012 Car- 
pi (MO) - Tel. 059/661922 

Vendo Commodore 64 a L. 360.000 (un 
anno di vita) con imballo e istruzioni 
originali; in regalo 25 programmi a scel 
ta in LM (su discoo cassetta). Massima 
serietà. Oscar Sillani - Via Attilio Gre- 
co, 5 - 84090 Montecorvino Pugliano 
(SA) - Tel. 089/801305 

Personalizzo, correggo programmi per 
C 64 in BASIC o LM. Compro, vendo o 
cambio software. Annuncio sempre va 
lido. Inviare lista o prendere accordi 
con: Giovanni Catalano - Via Interna 
Marina , 19 - 88074 Crotone (CZ) - Tel. 
0962/61413 

Dispongo di circa 600 programmi tra 
giochi e utility su cassetta per C 64. 
Telefonare verso sera o festivi per rice 
vere la lista. Massimo Di Carlo - Via 
Maffi, 112/G - 20099 Sesto S.Giovanni 
(MI) • Tel. 02/2425618 

Scambio, acquisto, vendo programmi 
per C 64. Scrivere o telefonare a: Gian- 
ni Negrello - Via Val Frenzela, 38 - 
36020 Vaistagna (VI) - Tel. 0424/90157 
(dalle 8.30 alle 14.30) - serietà e simpa- 
tia. 

Vendo o cambio programmi per C 64 
su disco e cassetta, cerco utility per 
drive 1541. Arrivi settimanali, ultime 
novità. Marco Mercanti - Via Pio Maia- 
loni, 76 00159 Roma - Tel. 02/4373763 

Per C 64 cambio software^ ogni gene- 
re. Inviatemi le vostre liste o telefonate- 
mi. Non intendo acquistare o vendere, 
solo scambiare. Maurizio Garutti - Via 
Paolini, 12 - 10138 Torino - Tel. 
011/441278 

Compro espansione per C 64. Telefo- 
nare a: Andrea Sonaglia ■ Via P. Neru- 
da, 60 - 06073 Perugia - Tel. 
075/6978347 


Vendo videogame (Raid over Moscow, 
Tutto il calcio minuto per minuto, Golf) 
per C 64. Richiedete la lista, ve la spedi- 
rò gratis. Maximiliano Magri-Tilli ■ Via 
Pace, 270 62100 Macerata 

Compro manuali o fotocopie dei se- 
guenti programmi; Easy script; Easy- 
cale. Music maker, Magic desk I, Koa- 
lapainter, Gesmag, Simons’ BASIC, 
Super64-Mon, Magic key, Disk mimic 
64, Superbase 64, Tot professional, 
Preasy script, Mailing list. Pierangelo 
Bellini - Via F. Turati, 15 - 01016 Tarqui- 
nia (VT) - Tel. 0766/855736 

Cambio programmi solo su cassetta 
per C 16. Telefonare solo dopo le ore 

20.00. Massimiliano Favero * Via Ga- 
rian, 57 * 20146 Milano * Tel. 
02/4221411 

Per C 64 vendo al miglior offerente 150 
dischetti pieni di non meno di 1.000 
game (i migliori) oppure vendo singo- 
larmente a prezzi stracciatissimi. Mau- 
rizio Anfosso * Via Simonetti • 14018 
Roatto d’Asti (AT) - Tel. 0141/938118 

Vendo ottimi videogiochi per C 64. Di- 
spongo dei migliori: Calcio con replay, 
Ghostbusters, Bruce Lee, Boxe, Pit- 
stop II, ecc. Vendo cassetta da 10 20 - 
50-100 giochi a partire da L. 7.000. 
Massima serietà Danilo Autullo - Via 
Cavalieri di Vittorio Veneto, 17 - 00049 
Velletri (RM) - Tel. 06/9634980 

Compro programmi solo su disco per 
C 64 (giochi, utility), anche ad alto 
prezzo. Inviare lista o telefonare. Giulio 
Bodrato - Via A. Barelli, 5 - 20148 Mila- 
no • Tel. 02/401675 

Cerco stampante Commodore 
MPS802. Inviare offerte a: Alessandro 
Girardi - Via E. Barbaro, 5 31100 Tre- 
viso - Tel. 0422/260273 

Vendo o cambio per C 64 cassetta con- 
tenente 20 game (Zaxxon, Pole, posi- 
tion, Karaté) a sole L. 8.000 e cassette 
con 18 utility e 12 game (Koala painter, 
Simons’ BASIC, Copy 190) a sole L. 

15.000. Vendo programmi a L. 800. 
Marco Baldessari - Via Baldessari, 14 • 
38041 Albiano (TN) - Tel. 0461/689628 

Cambio user manual C 16 (nuovo) con 
user manual VIC 20, anche usato, pur- 
ché completo. Spese postali alla pari. 
Claudio Fabietti - Località Borda si Ser- 
sale - 88050 Cropani Marina (CZ) - Tel. 
0961/961268 

Per C 64 vendo sprotettore universale 
•ed efficace nel 95% dei casi a L. 25.000, 
su nastro o disco. Massima serietà. 
Giuseppe Rinanti - Via Oreto, 332 - 
90124 Palermo - Tel. 091/444664 

Vendo kit programmi BASIC da me 
creati per dotare ogni cassetta per C 64 
di indice con ricerca e caricamento 
programmi BASIC e LM. Kit , istruzioni 
dettagliate e listati a L. 20.000 più spese 
di spedizione. Scrivere oppure telefo- 
nare la sera. Riccardo Pratesi * Via Fiu- 
me, 163 - 19100 La Spezia - Tel. 
0187/22387 


Vendo Commodore Plus/4, ancora im 
ballato, a L. 400.000 (senza registrato- 
re). Telefonare ore pasti. Dino Olivieri - 
Via Tofane, 2 - 10141 Torino - Tel. 
011/380341 

Eccezionale: più di 1.000 progrmmi 
gratis iscrivendovi al Commodore 
Computer Club. Alcuni titoli: Dragons 
lair, Winter games, Silent Service. Per 
averli scrivete a: Commodore Compu- 
ter Club - Via Calatafimi, 15 - 91026 
Mazara del Vallo (TP) 

Vendo Commodore VIC 20 più espan- 
sione da 3 Kbyte, quattro cassette gio- 
chi, joystick Commodore e tre libri gio- 
chi a L. 95.000. Rinaldo Cuccurullo • 
Via A. De Gasperi, 131 - 80059 Torre 
del Greco (NA) - Tel. 081/8810149 

Cambio, vendo circa 3.000 programmi 
per C 64. Vendo anche cartuccia Ise 
pick e Turbo drive. Per VIC 20 cedo 
espansione memoria da 8-16 Kbyte. 
Telefonare dalle 18.00 alle 21.00. Gian- 
ni Cottogni - Via Strambino, 23 - 10010 
Carrone (TO) - Tel. 0125/712311 

Vendo programmi per C 64 a L. 2.500 
cadauno. Telefonare a: Augusto To* 
nucci - Viale Romagna, 36 - 61032 Fano 
(PS) ■ Tel. 0721/879424 

Vendo VIC 20 più espansione 16 Kbyte 
e cinque cartucce tra cui “Scacchi”. 
Tutto, in buone condizioni, a L. 
300.000: un vero affare. In regalo 25 
giochi. Guido Bonino - Via delle Rose, 4 
- 10090 Villarbasse (TO) - Tel. 

011/952333 


Vendo software per C 64; tutte le ulti- 
me novità a vostra. disposizione, tra le 
quali: Zorro, Rambo, Robin Hood, The 
goonies, Wargames (Coleco), Kung fu 
master, Karaté, Champ, The eidolon, 
Koronis rift. Ne ver ending story e mol- 
tissimi altri Maurizio Porzionato - Via 
Avogadro, 22 - 13010 Quaregna (VC) - 
Tel: 015/94751 

Causa passaggio a sistema superiore, 
vendo C 64 più 200 programmi di vario 
genere a L. 550.000 non trattabili. Pre-, 
feribilmente zona Iglesias. Gianluca] 
Diana - Via Agruxau, 8 - 09016 Iglesias 
(CA) 

Vendo per C 16 alcuni giochi tra i quali 
Calcio, Olimpiadi, Frogger, Space in 
vaders, Berks, ecc. Mario Tarable - Via 
Vittorio Emanuele, 6 - 12051 Alba (CN) 
- Tel. 0173/42214 

Cambio o vendo software per VIC 20 
inespanso ed ed panso in cassetta e in 
cartridge. Tratto con la zona di Torino. 
Marco Guglielmina - Corso Or bassa - 
no, 255/C - 10137 Torino - Tel. 
011/395702 


Vendo o cambio stupendi giochi come 
Raider over Moscow, Il ritorno delle 
spie, Roller ball, Il paesaggio incantato e 
tanti altri, ancora più belli, a L. 500 
cadauno. L'acquirente riceverà inoltre 
Turbo tape II (dura 7 giri). Cosimo Pe- 
tracca - Via Livorno, 148 - 85100 Poten- 
za - Tel. 0971/43035 
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Titolo 


Lavoriamo con il Commodore 16 
(con cassetta) 

Guida al Commodore Plus 4 


Commodore 16 per te: Basic 3.5 
(con cassetta) 

Commodore 16 sempre di più 
(con cassetta) 

Commodore 16: essenziali routine 
(con cassetta) 


Autore 

Cod. 

A. Borra 

CC244 

M. Cristuib Grizzi 


R. Bonelli 

CC256 

L. Pazzucconi 


F. Racchi 


R. Bonelli 

413B 

R. Bonelli 

42 7B 

D. Lawrence 

422B 


Biblioteca 
per Commodo * 0 



Cod. 

Titolo 

Autore 

Prezzo 

338D 

Alla scoperta del VIC 20 

R. Bonelli 

22.000 

413B 

Commodore 16 per te: Basic 3.5 
(con cassetta) 

R. Bonelli 

35.000 

422B 

Commodore 16: essenziali routine 
(con cassetta) 

D. Lawrence 

29.000 

427B 

Commodore 16 sempre di piu 
(con cassetta) 

R. Bonelli 

35.000 

553D 

Giochi, trucchi e conti: 

29 programmi per VIC 20 

M. Benelfoul 

24.000 

557D 

Giochi, giochi, giochi per il vostro 
VIC 20 

M. Ramshaw 

9.000 

563D 

Sinfonia per un computer VIC 20 

T. Hartnell 

10.000 

565D 

Sinfonia per un computer VIC 20 
(con cassetta) 

T. Hartnell 

24.000 

568D 

Giochi, giochi, giochi per il 
vostro VIC 20 (con cassetta) 

M. Ramshaw 

* 

24.000 

CC244 

Lavoriamo con il Commodore 16 
(con cassetta) 

A. Borra 

M. Cristuib Grizzi 

20.000 

CC256 

Guida al Commodore Plus/ 4 

R. Bonelli 

L. Pazzucconi 

F. Racchi 

30.000 


256 Rita BonelU - Luciano Paz- 
zucconi - Fabio Racchi 

Guida al Commodore Plus/4 

Pagine 480 - L. 30.000 
cod* CC256 

Un nuovo libro per i numerosi appassio- 
nati Commodore, rivolto in particolar 
modo a tutti gli utilizzatori del “giovane” 
Plus 4. Questo nuovo libro, per essere 


sfruttato appieno, non richiede nessuna 
particolare conoscenza di programma- 
zione. L’intento principale è quello di 
essere una guida per l’ utilizzo del Com- 
modore Plus/4 e per l’apprendimento 
della programmazione in linguaggio BA- 
SIC e in linguaggio ASSEMBLER. 

Nel testo viene presentata l’implemen- 
tazione del BASIC 3.5 disponibile su 
questa macchina; è illustrato il DOS re- 
sidente nell’unità a floppy disk 1541 e 


viene insegnato l’uso completo della 
stampante grafica MPS-803. Lo studio 
deH’ÀSSEMBLER è sviluppato appog- 
giandosi alle possibilità offerte dal co- 
mando MONITOR del BASIC, ma vie- 
ne affrontato anche il problema del lin- 
guaggio macchina della CPU 7501 e 
della sua struttura hardware. 

Le spiegazioni teoriche sono sempre ac- 
compagnate da esempi commentati, e 
per questo il libro può essere utile an- 
che ai principianti. 

Non resta altro da aggiungere se non 
che si tratta di un libro che può essere 
definito una guida completa per chi ha 
scelto il Plus/4. 


244 Alessandro Borra - Mauro 
Cristulb Grlzzi 

Lavoriamo con il Commo- 
dore 16 (con cassetta) 

Pagine 196 - L. 20.000 
cod. CC244 

Molto spesso gli home computer vengo- 
no acquistati come strumenti per il di- 
vertimento di ragazzi, piccoli e un po’ 
cresciuti, senza poi sfruttarne appieno 
tutte le capacità. E un vero peccato pos- 
sedere una macchina che offre diverse 
opportunità, come il Commodore 16, e 
non conoscerne le potenzialità. 

Proprio per introdurre anche il neofita 
all’utilizzo del Commodore 16 con pro- 
cedure professionali, il Gruppo Edito- 
riale Jackson pubblica questo nuovo te- 
sto, dedicato a tutti i possessori (o uten- 
ti) di questo home computer. 

Vengono quindi presentati tre program- 
mi base per l’inserimento del computer 
in ambiente di lavoro o per un uso do- 
mestico più “intelligente”. 

Un word processor, programma di scrit- 
tura, interamente in ASSEMBLER, con 
il quale è possibile sostituire in modo 
totale la macchina da scrivere. 

Un data base, che permette di gestire 
qualsiasi tipo di informazione, creare 
un’agenda e organizzare un archivio. 
Nel libro sono contemplate due versioni 
del programma, in modo da essere uti- 
lizzate indipendentemente dal tipo di 
supporto di cui si dispone; gli autori 
hanno infatti previsto la versione per 
dischetto e per cassetta. 

Infine un foglio elettronico (spread- 
sheet), che permette di gestire, in modo 
automatico, calcoli complessi, analisi di 
mercato, budget e previsioni. 

Un libro indirizzato a tutti, che consente 
di apprezzare il proprio computer non 
solo come consolle per videogame, ma 
anche come indispensabile strumento di 
lavoro. 
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Sono interessato all’acquisto di un disk 
drive per C 64, usato, ma in perfette 
condizioni di funzionamento. Scrivere 
o telefonare ore pasti a: Emanuele Sil- 
vestri Piazza Malatesta, 2 - 47040 Ve- 
nie chio (FO) - Tel. 0541/668040 

Vendo, cambio oltre 3.000 validi pro- 
grammi {utility, gestioni, giochi) in lin- 



Cerco istruzioni del programma Si- 
mons’ BASIC a prezzo ragionevole e 
possibilmente in italiano. In cambio so- 
no disposto anche ad offrire giochi. 
Gianni Pierini - Via Dante, 403 - 52010 
Capolona (AR) - Tel. 0575/48418 


Vendo insieme o separatamente con 


guaggio macchina. Annuncio sempre 
valido. Telefonare ore pasti. Nazario 
Melchionda Viale Teocrito, 108 - 
96100 Siracusa Tel. 0931/39898 

Vendo VIC 20 con imballaggi originali 
completo dì istruzioni, cavetti e trasfor- 
matore a L. 100.000; registratore Com- 
modore a L. 60.000; 10 cartridge tra le 
quali Scacchi e Gorf a L. 5.000 cadau- 
na; 4 cassette Mastertronics a L. 5.000 
cadauna; una cassetta con due giochi a 
L. 3.000; 1 cassetta con 30 giochi com- 
pleta di libro a L. 10.000; una cassetta 
Super Arcade con 10 giochi a L. 7.000. 
Il tutto, con pochi mesi di vita, in blocco 
al prezzo affare di L. 250.000 trattabili. 
Emanuele Filiberto Viale Primo Mag- 
gio, 45 - 88046 Lamezia Terme (CZ) 

Vendo o cambio programmi di giochi 
ed utility su disco per C 64. Inviola lista 
dei programmi a chi ne fa richiesta. 
Scrivere oppure telefonare dalle ore 
12.30 alle 15.00. Fabrizio Porrovecchio 
- Via Cappa rozzo, 8 90146 Palermo - 
Tel. 091/244045 

Per C 16 vendo 20 giochi tra i quali: Pac 
Man, Skramble, Bombolo, Robin To 
The Rescue, Al Ladro, Space Wars, 
Towel Of Evil al prezzo di L. 55.000 più 
spese postali oppure giochi a scelta. 
Sono disposto anche allo scambio. Fer- 
nando Taddei - Via C D. A. Braida - 
85014 Laurenzana (PZ) - Tel. 
0971/961306 

Cambio circa 200 programmi per C 64 
fra giochi ed utility. Mandate le vostre 
liste a; Paolo Schirra - Via Taranto, 4 - 
09170 Oristano - Tel. 0783/259666 

Vendo software per C 64 a prezzi 
stracciati, da L. 3.000 a L. 10.000. Di- 
spongo anche di Easy Script , Manager, 
Simon s’ BASIC ed Extended BASIC, 
che vendo a L. 15.000 cadauno. Richie- 
dere la lista a: Renato Maniscalco Via 
Duca Abruzzi - 91018 Salemi (TP) 

Cerchi programmi di qualità per C 64? 
Io li ho; chiedi il catalogo a: Leonardo 
Tambone - Via Marconi, 47 - 20010 
Cornando (MI) - Tel. 02/9319108 

Compro, vendo, cambio software per 
C 16: prezzi ragionevoli, massima se- 
rietà, ottima qualità; tratto preferibil- 
mente con la provincia di Livorno. 
Mandate la vostra lista a: Giuseppe 
Trinchini - Via S.Francesco, 20 - 57025 
Piombino {LI) - Tel. 0565/34779 

Vendo o cambio ultime novità per C 
64: Two On Two, Summer Games II 
(cassetta), partita doppia, Gi Joe e al- 
tri. Telefonare dalle ore 16.00 alle 

17.00. Gianmarco Marocchi - Via Ro 
ma, 66 - 38060 Tenno (TN) - Tel. 
0464/500635 


Vendo VIC 20 più 2 cartucce, 4 casset- 
te con 50 programmi di utility e giochi, 
manuale, registratore, joystick ed ali- 
mentatore a L. 300.000 trattabili. Tele- 
fonare a: Alberto Bellina - Via L. Da 
Vinci, 518 - 90100 Palermo - Tel. 
091/222922 

Vendo, possibilmente al mìo domicilio, 
C 64 più registratore, joystick, 4 casset- 
te e 2 libri a L. 500.000. Ancora in ga 
ranzia. Telefonare dalle 19.00 alle 

20.00. Alberto Marchetti - Via G. Leo 
pardi, 7 - 24034 Cisano Bergamasco 
(BG) - Tel. 035/783284 

Dispongo delle migliori novità per C 64 
tra cui Exploding Fisi (un karaté miglio- 
re di quello delle sale giochi), Karateka 
(un altro stupendo karaté), Rocky, Sky 
Fox, Two On Two (pallavolo), Beach 
Head II e moltissime altre. Notevole 
quantità di software anche su cassetta. 
Chiedere di Fabio. Fa. No. Software - 
Via Pestalozzi, 8 - 05100 Terni - Tel. 
0744/88593 

Vendo a L.. 10.000 cassetta con 30 gio 
chi per C 64: Turbo Dig Dag, Popeye, 
Fort Apocalypse, Wimbledon, Jungle 
Hunt, Defender, Pitfall, Basket, Super 
Pipeline, Suicide Strike, Aztec, Blue 
Moon, Grid Trap, Star Trek, One On 
One, Doctor 64, ecc. Davide Nebuloni 
- Via Piemonte, 47 - 20015 Parabiago 
(MI) 

Eccezionale udite, udite o possessori di 
C 64: vendo Superturbo, fantastico 
programma che vi permette di “super 
turbare” i vostri programmi, ma (cosa 
eccezionale) non richiede del suo cari- 
camento nella ricerca. Il prezzo, strepi 
toso, è di L. 40.000. Per informazioni 
scrivere o telefonare a: Ettore Aquila - 
Via degli Stadi, 15 - 87100 Cosenza - 
Tel. 0984/393595 

Vendo cassetta con oltre 10 program- 
mi di giochi edutilità per C 16 e Plus/4 a 
L. 10.000; Cassetta per la riduzione dei 
sistemi Totocalcio a L. 6.000. Vendo 
inoltre, a L. 600.000, Plus/4 più alimen- 
tatore, corso BASIC con cassette, regi- 
stratore e vari programmi. Un solo me- 
se di vita. Guido Rìcci - Via Capo Le 
Case - 67015 Montereale (AQ) Tel. 
0862/90242 

Compro espansione 8-16 Kbyte per 
VIC 20 a prezzo conveniente. Telefo- 
nare a: Antonio Politi - Via Roma, 6 - 
73015 Salice Salentino (LE) - Tel. 
0832/731185 

Sviluppo software di tipo gestionale su 
C 64 o Appiè II. Tratto solo con Torino. 
Vincenzo Garrone - Via Mazzini, 47 * 
10123 Torino - Tel. 011/833240 


Vendo VIC 20 più 14 cartridge Com- 
modore, manuale con istruzioni in ita- 
liano e 13 cassette. Inoltre regaloall’ac 
quirente molte riviste un libro giochi. 
Tutto in ottime condizioni, L. 320.000. 
Romano Buglioni - Via Mergozzo, 13 
(già E. Bondi, 107) 00166 Roma - Tel. 
06/6242159 

Per C 64 vendo a L. 20.000 cassetta 
con 15 programmi a scelta. Annuncio 
sempre valido, massima serietà. Mauro 
Boiano - Via Del Giudice, 23 - 81010 
S Gregorio Matese (CE) 

Cambio software per C 64. Dispongo 
di circa 150 programmi, tra cui parec- 
chi giochi: Calcio, Pole Position, Roller- 
ball, Popeye, Pittali r. Mephisto. Fabio 
Fattini Via Ruffio, 2558 47023 Cesena 
(FO) • Tel. 0547/52635 

Ho fondato un club per i possessori di 
C 64. Chi si iscrive potrà acquistare 
videogame a prezzi bassissimi: per 
esempio, Ghostbusters a sole L. 3.500. 
Invio lista a chi ne fa richiesta. Tratto 
solo con la regione Veneto. Fabio Men- 
ti Via G. Giardino, 6 36070 VaId£igno 
(VI) - Tel. 0445/403088 

Per C 64 vendo o cambio programmi di 
ingegneria su cassetta (adatti per stu- 
denti) con allegata spiegazione e T urbo 
Tape in regalo. Prezzi da L. 6.000. 
Francesco Pinizzotto - Via Tre Monti, 
57 -98100 Messina - Tel. 090/362011 

Ehi, tu che leggi questo annuncio hai 
giochi (belli) per C64? Se vuoi scam- 
biarli o venderli, hai trovato l’annuncio 
che fa per te. Puoi comunicare con me 
tramite tre canali di Input/ Output, che 
sono: Lettura, Telefono, Modem. Que 
sti tre canali sono a tua disposizione 24 
ore su 24. Allora, cosa aspetti? Antonio 
Bianco - Via Montalbino, 16 - 84016 
Pagani (SA) - Tel. 081/919350 

Vendo Commodore 8032, espansione 
a 96 Kbyte, dual floppy Commodore 
4040, stampante Commodore 3022, in- 
sieme o separatamente. Telefonare ore 
serali. Antonio Palumbo - Viale Elena, 
26 80122 Napoli - Tel. 081/660068 

Vendo software, riviste e libri nuovi su 
C 64, Spectrum e VIC 20 a prezzi mol 
to convenienti. Giorgio Sasdelli Via 
Vespri Siciliani, 31 - 20146 Milano Tel. 
02/4238485 

Cambio o vendo software per VIC 20; 
dispongo di oltre 100 programmi. Spe- 
dite la vostra lista richiedendo la mia. 
Gaetano Scibilia Via Duilio, 16 97019 
Vittoria (RG) - Tel. 0932/988194 

Vendo 500 splendidi programmi (sia su 
disco che su nastro) per C 64 a prezzi 
veramente ottimi. Chiedete la lista. En- 
za Albano Via Verdi, 37 24040 Arce 
ne (BG) Tel. 035/878594 


solle Intellivìsion e 12 giochi: Calcio, 
Tennis, Basket, Boxe, Battaglia Nuva 
le, Automobilismo, Star Strike, Astro- 
smash. Space Armada, Poker, Ìppica. 
Tutto allo stupendo prezzo di L. 

250.000. Telefonare possibilmente ore 
pasti. Giò Esposito Via Fratelli Ken 
nedy, 2 - 20082 Noviglio (MI) - Tel. 
02/9054330 

Vendo VIC 20 più registratore, libro 
"Alla scoperta del VIC 20", 4 cassette 
con molti giochi in LM e 6 programmi di 
utilità a sole L. 300.000. Regalo un joy- 
stick all’acquirente. Scrivere o telefo- 
nare a: Orlando Stasi - Via dei Carpen 
t ieri, 3 80059 Torre del Greco (NA) 
Tel. 081/8819608 

Cambio programmi di ogni genere su 
disco o cassetta. Rispondo a tutti quelli 
che mi invieranno la propria lista di 
programmi. Annuncio sempre valido. 
Walter Bonato - Via S.Pio X, 1 - 31030 
Borso del Grappa (TV) 

Vendo VIC 20 più trasformatore, ca- 
vetti antenna, 3 cartucce giochi e una 
cassetta programmi. Tutto in ottime 
condizioni, a L. 200.000 trattabili. Tele- 
fonare ore pasti. Lorenzo Canepa • Via 
Turno, 7 - 80072 Arco Felice (NA) - Tel. 
081/8667406 

Eccezionale: vendo Turbo Tape per C 
64 a 5 giri di nastro. Sì, avete letto bene: 
5 giri. Lo vendo a L. 20.000, escluse le 
spese di spedizione ed il supporto. Gio 
vanni Stefanelli - Via Badino, 206 - 
04019 Terracina (LT) • Tel. 
0773/731170 

Vendo Summer Games II. Beach Head 
II, Two On Two, Rocky, Hot Wheelsed 
altri 3.500 programmi, tutti perfetta- 
mente funzionanti. Armando Mannino 
- Via Caronda, 196 - 95100 Catania - 
Tel. 447974 

Vendo giochi per C 64 a L. 2.000 l’uno. 
Vendo cassetta con 20 giochi, tra i quali 
Frogger, One On One, Wimbledon e 
moltissimi iil tri, a L. 30.000. Giovanni 
Stefanelli Via Badino,. 206 04019 Ter 
racina (LT) Tel. 0773/731170 

Vendo le seguenti cassette per A tari 
VCS 2600 a metà prezzo: Pac Man, 
Raiders Of The Lost Are, Spider Man, 
Space Shuttle, The Ac ti vision Decath- 
lon. Cristiano Cravanzola Via Prof. 
Oliva, 16 - 12011 Borgo S.Dalmazzo 
(CN) - Tel. 0171/769659 

Vendo a L. 20.000 cassetta contenente 
11 programmi (tra giochi e utility) tra 
cui: Simons’ BASIC, Speadscript, 
SAM, Calcio, ecc. Fabio Ferrera - Via 
dei Giustiani, 9 - 16036 Recco (GÈ) 
Tel. 0185/73163 

Sensazionale! Vendo giochi per C 64 
(Frogger, Galaxìa, King Kong, Skram- 
ble, ecc.) a L. 1.500 l’uno. Ne posseggo 
60, tutti in Turbo Tape. Inoltre vendo 
anche utility (Turbo Tape, Archivio, 
ecc.) a L. 2.000 ['una. Giuseppe Antoni 
ni - Via Sempione, 25 - 28037 Domo- 
dossola (NO) 
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